Se detalhasse melhor de inicio o que pretende fica bem mais fácil e nem precisaria de anexo, e pelo print que postou e a nova explicação, e, se os dados estiverem nas colunas padrão, você quer copiar as colunas "E até J", então utilize a rotina abaixo :
Ajuste os nomes das Abaas.
Sub copia_colunas()
With Sheets("Plan1")
.Columns("E:J").Copy Destination:=Sheets("Plan2").Range("A1")
End With
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/08/2015 11:25 am