Tenho uma planilha aqui no qual tenho um total, só que eu preciso também contar as linhas preenchidas nessa planilha...

VBA abaixo do total da produção saindo no rodape:

Sub SomaRodape()


    With ActiveSheet.PageSetup
        .CenterFooter = "&""-,Negrito""&20" & "Total: " & Application.WorksheetFunction.Sum(Plan4.Columns(7))
    End With
    
        
    
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

Tem como contar as linhas dessa planilha colocando junto desse codigo, e no caso não contando a primeira linha

Obrigado