Sure, I can help you with that!

You can use a simple loop in VBA to count the filled cells in a column until the first empty cell. Here's an example code that you can modify to fit your specific needs:

Formula:

Sub CountFilledCells()
    Dim i As Integer
    Dim count As Integer
    
    i = 1
    count = 0
    
    ' Replace "A" with the column letter you want to count
    ' Replace "1" with the row number where your data starts
    ' Replace "100" with the last row number where your data ends
    Do While Range("A" & i).Value < "" And i <= 100
        count = count + 1
        i = i + 1
    Loop
    
    ' The count variable now contains the number of filled cells in the column
    MsgBox "The number of filled cells is: " & count
End Sub 


Here's how the code works: