Копирование диапазона.

[riniks17]

Добрый день.
Написал простой код

LastRow = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
LastPRow = Worksheets("Здесь").UsedRange.Row + Worksheets("Здесь").UsedRange.Rows. Count

Worksheets("Здесь").Range("F2:F25") .Copy Range("B" & LastRow)

Как сделать, что б метод Copy переносил только значения, потому как в диапазоне ("F2:F25") есть формулы? И как правильно сделать диапазон динамичeским. С определением последней строки, а не F25. Я попытался через LastPRow, не получилось. А в ячейки столбца "F" активного листа вставить текущую дату для каждой скопированной записи. Возможно такое без цикла?
Спасибо.

[EducatedFool]

Вы бы файл свой прикрепили,
на нём показали, что есть изначально, и что должно получиться в результате копирования...

[riniks17]

Сообщение от EducatedFool

Вы бы файл свой прикрепили,
на нём показали, что есть изначально, и что должно получиться в результате копирования...

Вот. Мысль такая. Нажимаем на кнопку листа таблица. Копируется список из листа работники из столбца Ф и проставляются текущие даты.

[EducatedFool]

Проверяйте:

Sub Макрос()
    Dim ra As Range, ra2 As Range

    With Worksheets("Работники")    ' копируемый диапазон
        Set ra = .Range(.[f2], .Range("f" & .Rows.Count).End(xlUp))
    End With
    ' диапазон для вставки
    Set ra2 = Worksheets("Таблица для заполнения").Range("a2").End(xlDown).Offset(1).Resize(ra.Rows.Count)

    ra2.Offset(, 1).Value = ra.Value    ' копируем фамилии во второй столбец
    ra2.Offset(, 6).Value = Date    ' в 7-й столбец ставим текущую дату
End Sub

[DiemonStar]

Sub Улыбающеесялицо1_Щелчок()
        With Sheets("Работники")
          Set Dst = Sheets("Таблица для заполнения").Range("B" & .Rows.Count).End(xlUp)
          Set Src = .Range(.[F2], .Range("F" & .Rows.Count).End(xlUp))
          Src.Copy
          Dst.Offset(1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
          Dst.Offset(1, 5).Resize(Src.Rows.Count) = Now()
        End With
End Sub

попробуйте так

upd. опоздал...

[riniks17]

Сообщение от EducatedFool

Проверяйте:

Sub Макрос()
    Dim ra As Range, ra2 As Range

    With Worksheets("Работники")    ' копируемый диапазон
        Set ra = .Range(.[f2], .Range("f" & .Rows.Count).End(xlUp))
    End With
    ' диапазон для вставки
    Set ra2 = Worksheets("Таблица для заполнения").Range("a2").End(xlDown).Offset(1).Resize(ra.Rows.Count)

    ra2.Offset(, 1).Value = ra.Value    ' копируем фамилии во второй столбец
    ra2.Offset(, 6).Value = Date    ' в 7-й столбец ставим текущую дату
End Sub

Нет слов. Всё работает. Буду разбираться как. Одно уточнение. Вставляется последняя строка без значений но с датой. И следующий диапазон начинается после пустой строки. Как убрать последнюю пустую строку? Хотя она и не очень мешает.
Что должен за элегантное решение?

[DiemonStar]

Как убрать последнюю пустую строку?

уберите формулу из списка на листе "Работники" и будет Вам счастье.

[riniks17]

Когда на работе спросили, как я это делал, многозначительно со скромным видом опустил глаза. Спасибо, друзья.