Volgende lege rij selecteren

[wpayanda]

hallo allemaal

ik wil graag bij een excelbestand dat de macro gegevens uit werkblad 2, A1:A4 kopiert en in werkblad 1 op een lege rij plaatst. ik gebruik momenteel de volgende code om de lege rijen te herkennen:

Private Sub CommandButton1_Click()
    
  
    
    Dim lVolgendeRij As Long
    
  
    lVolgendeRij = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1

    Sheets("Data").Range("A:D" & lVolgendeRij).Value = Sheets("Test").Range("A1:A4").Value
    
    

End Sub

hier krijg ik steeds een foutmelding, weet iemand daar een oplossing voor?

 

[Wigi]

Private Sub CommandButton1_Click()
    
    Dim lVolgendeRij As Long
    Dim i As Integer
    
    lVolgendeRij = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1

    For i = 1 To 4
        Sheets("Data").Cells(lVolgendeRij, i).Value = Sheets("Test").Range("A" & i).Value
    Next
    
End Sub

Wigi

 

[wpayanda]

:thumb: ook opgelost , bedankt voor je reactie Wigi.