Laatse regel in Tabel

[Tweety1]

Het lukt me niet om de onderstaand macro zonder fouten uit te voeren.
De bedoeling is dat hij onder de de laatste gevulde regel in kolom A (tabel) het word einde neerzet.
Hij loopt nu steeds vast op de ene laatste regel

Sub Einde()
Dim lastRow As Long

With Blad01.ListObjects("LessentabelJaar1")
lastRow = .Range.Cells(.ListRows.Count, 1).End(xlUp).Row + 1
End With

Range("A:" & lastRow).Value = "Einde"

End Sub

 

[HSV]

Probeer het zo eens.

Sub hsv()
With Blad01.ListObjects([COLOR=#3E3E3E]"LessentabelJaar1"[/COLOR])
  .DataBodyRange(.ListRows.Count, 1).End(xlUp).Offset(1) = "einde"
End With
End Sub

 

[Tweety1]

Thanks

 

[Tweety1]

Is het ook nog mogelijk om de Font.Size mee te geven.

 

[HSV]

Zeker.

Sub hsv()
With ActiveSheet.ListObjects([COLOR=#3E3E3E]"LessentabelJaar1"[/COLOR])
   With .DataBodyRange(.ListRows.Count, 1).End(xlUp).Offset(1)
     .Value = "einde"
     .Font.Size = 20
   End With
End With
End Sub

 

[Tweety1]

Thanks