¿Cómo subrayar la última fila antes del total del counta?

así que pensé esto:

Dim myLastRow As Long 'Find last row in column A myLastRow = Cells(Rows.Count, "A").End(xlUp).Row ' Insert count after last cell in column A Cells(myLastRow + 1, "A").Formula = "=COUNTA(A2:A" & myLastRow & ")" 

Esto contará una columna y pondrá el total en la parte inferior. pero ¿cómo hago para subrayar la última fila antes del total?

Esto debería funcionar.

 Dim myLastRow As Long 'Find last row in column A myLastRow = Cells(Rows.Count, "A").End(xlUp).Row 'Insert count after last cell in column A Cells(myLastRow + 1, "A").Formula = "=COUNTA(A2:A" & myLastRow & ")" With Cells(myLastRow + 1, "A").Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlMedium End With