VBA для копирования нескольких смещающих ячеек

Question

Это, вероятно, базовый, но я не могу найти, как это сделать.

Я хочу выбрать ячейку и ячейку смещения 3 ячейки справа. Не между ними. Поэтому, если я выбрал A2, он скопировал бы A2 и A5.

Мне удалось сделать то или другое, но не могу понять, как скомбинировать. Я начинающий.

Спасибо за ответы. Поймите, я неправильно сформулировал свой вопрос. Я хочу скопировать любую ячейку, выбранную в столбце A, и соответствующая ячейка в той же строке в столбце EI имеет это до сих пор, но я не могу понять, как заставить код делать оба одновременно.

' Keyboard Shortcut: Ctrl+Shift+C 
' 
    ActiveCell.Copy 
    ActiveCell.Offset(0, 5).Copy 
End Sub 

Answer 1

Sub Try() 
Dim Selected_, Paste_ As Range 
On Error Resume Next 
'Allow user to select cell 
Set Selected_ = Application.InputBox("Please select cell you would like to copy", Type:=8).Select 
'Copy user's selected cell 
Selection.Copy 
'Offset, to select column E with the same row as user's selection 
Set Paste_ = ActiveCell.Offset(0, 4).Select 
'Paste value 
ActiveCell.PasteSpecial 
End Sub 

Это должно помочь :)