Para contar as células preenchidas em uma planilha do Excel usando VBA, você pode usar a função CountA. Aqui está um exemplo de código:
Sub contarcelulaspreenchidas()
Dim count As Integer
count = WorksheetFunction.CountA(ActiveSheet.Range("A1:C10"))
MsgBox "O número de células preenchidas é " & count
End Sub
Este código conta as células preenchidas na faixa A1:C10 da planilha ativa e exibe o resultado em uma caixa de mensagem. Você pode modificar o código de acordo com suas necessidades, alterando a faixa ou a maneira como o resultado é exibido.