Excel VBA - preencher células até o final

[alison.rm]

Boa pessoal, rodei a net toda atrás disso, parece muito simples... o comando VBA pra executar isso:

Clique duplo pra preencher até o final (última cel da col D). 

 

Desde Já OBRIGADO!

 

 

[Muca Costa]

Veja se é isso:

 

Sub Preencher()
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F" & Planilha1.Cells(Rows.Count, "D").End(xlUp).Row)
    Range("F2:F" & Planilha1.Cells(Rows.Count, "D").End(xlUp).Row).Select
    Range("F2").Select
End Sub

 

[alison.rm]

@Muca Costa

Muito obrigado amigo... apenas ajustei o nome da planilha... No caso isso se aplica a seleção da cel F2 apenas, correto? Pelo que eu testei, funcionou assim.

 

Caso eu quisesse igual a figura, ou seja, as células E2 e F2 selecionadas (ou qualquer outro range), seria isso?

 

Range("E2;F2").Select

 

E aqui? 

 

Selection.AutoFill Destination:=Range("F2:F ???

 

Novamente, obrigado!

[Muca Costa]

É isso mesmo!

 

Sub Preencher()
    Range("E2:F2").Select
    Selection.AutoFill Destination:=Range("E2:F" & Planilha1.Cells(Rows.Count, "D").End(xlUp).Row)
    Range("E2:F" & Planilha1.Cells(Rows.Count, "D").End(xlUp).Row).Select
    Range("E1").Select
End Sub

 

[alison.rm]

@Muca Costa beleza amigo. MUITO OBRIGADO!!