O titulo diz preencher tabela, mas o que quer é copiar os valores de digitados em G2:P2 para a linha digitada em F2.
Se for experimente:
Sub Copiar()
Sheets("Plan1").Range("G2:P2").Copy Destination:=Sheets("Plan1").Cells(Range("F2").Value + 4, 7)
'Se quiser limpar os dados depois de copiados
Sheets("Plan1").Range("F2:P2").ClearContents
End Sub
ou não é isso
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/03/2013 2:37 pm