Eu não entendi a sua dúvida, você quer contar o número de colunas e inserir linhas abaixo?

para contar quantas coluna há na planilha, use:

contagem = Sheets("Plan1").Cells(1, Columns.Count).End(xlToLeft).Column

Na verdade o que resolveria o meu problema, seria uma macro que verificasse a linha 4 em cada coluna. Se a linha 4 de uma coluna X fosse vazia, entao a macro incluiria 3 células para baixo na respectiva coluna, caso contrário, ela iria para outra coluna e assim por diante, até a ultima coluna que tenha dados.

Acho que ficou mais claro agora.

Tentei fazer do jeito abaixo, mas a macro fica incluindo varias celular para baixo somente na primeira coluna que encontra com a linha 4 vazia.

Range("A4").Activate

Do Until ActiveCell.Value = "."

If ActiveCell.Value = "" Then
ActiveCell.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Else: ActiveCell.Offset(0, 1).Activate
End If

Loop

Disponibilize um arquivo modelo fica mais facil ajudar

Ve se é isso...

Sub incluir()
Dim numeroDeLinhas As Integer
Dim numeroDeColunas As Integer
Dim linha As Integer
Dim coluna As Integer
Dim intervalo As Range

numeroDeLinhas = ActiveSheet.Range("A1").CurrentRegion.Rows.Count
numeroDeColunas = ActiveSheet.Range("A1").CurrentRegion.Columns.Count



For coluna = 1 To numeroDeColunas
For linha = 4 To numeroDeLinhas Step 4
     If Cells(linha, coluna) = "" Then
        Set intervalo = Range(Cells(linha, coluna), Cells(Rows.Count, coluna).End(xlUp).Row)
        Range(Cells(linha, coluna), Cells(Rows.Count, coluna).End(xlUp).Row).Value = ""
        intervalo.Copy
        Range(Cells(linha, coluna), Cells(Rows.Count, coluna).End(xlUp).Row).Offset(3).PasteSpecial xlPasteAll
     End If
Next linha
Next coluna
End Sub