Excel Edição de códigos no VBA

[Rafael Borges P.]

Boa tarde amigos,

 

Estou com dificuldades em uma planilha minha, criei ela pelo excel 2013. O meu amigo foi acessá-la pelo excel dele 2010 e não conseguiu usar com macro, deu erro.

Ele coleta dados e gera um documento no word. Fiz algumas modificações, uma delas foi que ao invés do ser Word.application, coloquei object ai funcionou no excel 2010, mas ainda há empecilhos na seguinte parte:

 

Plan4.Range("A3:H11").ClearContents 'esta linha apaga o intervalo de A3 até H11
ultimaLinha = Plan1.Cells(Rows.Count, "a").End(xlUp).Row 'retorna a ultima linha da Plan1 que contém informações
    lin = 2 ' linha 2

    For i = 3 To ultimaLinha 'da 3 linha até a ultima linha
       If Plan1.Cells(i, 1) <> "" Then 'se o intervalo(3 To ultimaLinha) da coluna 1 for diferente de "" (vazio) então
       'será copiado na Plan4 os dados, desta mesma Plan4 referente a primeira linha com os dados A2
        Plan4.Cells(i, 1) = Plan4.Cells(lin, 1)
        Plan4.Cells(i, 2) = Plan4.Cells(lin, 2)
        Plan4.Cells(i, 3) = Plan4.Cells(lin, 3)
        Plan4.Cells(i, 4) = Plan4.Cells(lin, 4)
        Plan4.Cells(i, 5) = Plan4.Cells(lin, 5)
        Plan4.Cells(i, 6) = Plan4.Cells(lin, 6)
        Plan4.Cells(i, 7) = Plan4.Cells(lin, 7)
        Plan4.Cells(i, = Plan4.Cells(lin,
        lin = lin + 1
        
    ElseIf Plan1.Cells(i, 1) = "" Then 'se o intervalo(3 To ultimaLinha) da coluna 1 for igual a "" (vazio) então
        Plan4.Range("A3:H11").ClearContents 'esta linha apaga o intervalo de A3 até H11
        
    End If
    
   Next

 

 

Alguem saberia por qual código eu posso substituir?