End Sub
Sub CountRowsInColumn() Dim rowCount As Long ' Count rows with data in column A (active sheet) rowCount = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
' Excluye el encabezado (ListRows.Count) o inclúyelo (Range.Rows.Count) numFilas = tabla.ListRows.Count