Opgelost Laatste rij zoeken en verwijderen

[eddy1960]

Beste Forumleden,

Ik wil in een lijst de laatste niet lege rij zoeken en verwijderen met vba.
Heb ondertussen volgende code gevonden voor het zoeken van laatste rij, maar geeft als resultaat MsgBox
Wie kan mij hierbij helpen?
Bij voorbaat dank.

Sub LaatsteRij()

Dim LaatsteRij As Long

If WorksheetFunction.CountA(Cells) > 0 Then
LaatsteRij = Cells.Find(What:="*", After:=[B1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
MsgBox LaatsteRij
End If

End Sub

 

[jverkerk]

Met een knop

Sub Knop1_Klikken()
Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.EntireRow.Delete
End Sub

 

[eddy1960]

Dank u wel Johan

 

[jverkerk]

Rij verwijderen

 

[HSV]

Aan de reactie te zien gaat het dus om de laatste rij in kolom A.
Eerst selecteren en dan verwijderen is niet nodig.

 

[eddy1960]

Aan HSV
Neen laatste rij in kolom B, maar dat was simpel aan te passen

 

[HSV]

Dan wordt het zonder te selecteren en verwijderen direct verwijderen.

Sub LaatsteRij()
 rows(cells(rows.count,2).end(xlup).row).delete
End Sub

 

[jverkerk]

Mooier @HSV
Het blijft bij mij meestal opzoeken.