Поиск первой пустой ячейки в строке

[СтаСС]

Застрял вроде на елементарном..
Нужно скопировать с первого листа диапазон и вставить во второй лист в первую пустую ячейку (первой строки)..
Понаходил разные коды по разному вставлял их но все мимо..
например так но вставляет почему то в любую активную ячеку

Sub ABCD()
    Sheets("Лист1").Select
    Range("Z3:Z75").Select
    Selection.Copy
    Sheets("Лист2").Select
    lastCol = Cells(Columns.Count, 1).End(xlToRight).Column
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False   
End Sub

помогите плиз пока у меня башка не взорвалась..

[Aleksandr H.]

Sub ABCD()
    Dim lastCol As Integer
    Sheets("Лист1").Range("Z3:Z75").Copy
    lastCol = findFirst(Sheets("Лист2"))
    If lastCol = 0 Then Exit Sub
    Sheets("Лист2").Cells(1, lastCol).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Function findFirst(sh As Worksheet)
    Dim i As Integer
    For i = 1 To sh.Columns.Count
        If sh.Cells(1, i) = "" Then
            findFirst = i
            Exit Function
        End If
    Next i
    findFirst = 0
End Function

[СтаСС]

Сообщение от Aleksandr H.

Код

Спасибо добрый человек, явно спасли меня от психушки!