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

Boa tarde

Valeu, Reinaldo era isso mesmo que precisava.
Abraço