data toevoegen aan bestaand excel bestand ( hoe een lege rij te vinden binnen excel bestand) (Opgelost)

Sub GetColA_LastRow()
    Dim ws As Worksheet
    Dim lRow As Long
     
    Set ws = ThisWorkbook.Sheets("Sheet1")
         
    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
     
    MsgBox "The last row which has data in Col A of Sheet1 is " & lRow
End Sub

Sub GetColA_LastRow()
    Dim ws As Worksheet
    Dim lRow As Long
 
    Set ws = ThisWorkbook.Sheets("Sheet1")
 
    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
    End With
 
    MsgBox "The last row which has data in Col A of Sheet1 is " & lRow
End Sub