VBA copy-paste из последней в первую пустую ячейку

Question

Прежде всего, я знаю, что этот вопрос уже задавался, но я не очень хорош в vba, поэтому я прошу вашей помощи, потому что я не смог реализовать решения, которые нашел ..

Так что я должен списки "Альфа" и "Бета". Мне нужно скопировать диапазон B2: E2 до пустого B. Затем скопируйте его в первую пустую строку в столбце B.

Последнее и первое пустое всегда будут разными.

буду очень признателен за вашу помощь!

Answer 1

Попробуйте:

Sub Kopy()
    Dim N As Long, r1 As Range, r2 As Range
    N = Cells(Rows.Count, "B").End(xlUp).Row
    Set r1 = Range("B2:E" & N)
    Set r2 = Range("B" & (N + 1))
    r1.Copy r2
End Sub

ПРИМЕЧАНИЕ:

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