hi gokzee, only when it's 4, and nothing lesser? try:

Sub test()

If WorksheetFunction.CountA(Range("A:A")) = 4 Then
    'insert code here
End If

End Sub