Problemas em preencher planilha via VBA

[Gleisson]

BLZ galera?
Estou tendo um problema com o código abaixo:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="fn"
Worksheets("RELATÓRIO FABRICA NOVA-PG2").Select

Range("A11:D30,G11:G30").Select 'selecione as células indicadas

Selection.ClearContents

Do

If Not (IsEmpty(ActiveCell)) Then ' Se a célula não estiver vazia

ActiveCell.Offset(1, 0).Select ' Selecione a célula abaibo

Loop Until IsEmpty(ActiveCell) = True ' Faça isso até selecionada ser vazia.

End If ' Fim da condição se

Worksheets("ROM FABRICA NOVA-PG1").Select

j = 11

For i = 8 To 254

teste = Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 1).Text

If teste <> "" Then

Frente = teste

End If

If Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 7) <> "" Or Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 8).Text <> "" Then

Avanco = Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 1)
litologia = Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 2)
viagens = Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 7)
v_realizadas = Worksheets("ROM FABRICA NOVA-PG1").Cells(i, 8)

Worksheets("RELATÓRIO FABRICA NOVA-PG2").Select

Worksheets("RELATÓRIO FABRICA NOVA-PG2").Cells(j, 1) = Avanco
Worksheets("RELATÓRIO FABRICA NOVA-PG2").Cells(j, 2) = Frente
Worksheets("RELATÓRIO FABRICA NOVA-PG2").Cells(j, 3) = litologia
Worksheets("RELATÓRIO FABRICA NOVA-PG2").Cells(j, 4) = viagens
Worksheets("RELATÓRIO FABRICA NOVA-PG2").Cells(j, 7) = v_realizadas

j = j + 1

Worksheets("ROM FABRICA NOVA-PG1").Select

End If

Next

Worksheets("RELATÓRIO FABRICA NOVA-PG2").Select

ActiveSheet.Protect Password:="fn"
MsgBox "Frentes importadas com sucesso!"
MsgBox "qualquer erro entrar em contato com Gleisson Ramal 6009", vbInformation + vbOKOnly, ActiveWorkbook.Name


End Sub

As células não são todas preenchidas.
abraços.
Gleisson.

[Lúcio Mauro da Silva]

Gleison boa noite,

Poderia postar seu arquivo para analisarmos?

Ao dispor.