Я выяснил, как копировать и вставлять указанные c ячейки, однако у меня возникли проблемы с копированием относительных ячеек на основе текущего выбора. Вот мой код и пробел, где у меня возникают проблемы при выборе.
Sub LogPosition()
Dim rngStart As Range
Set rngStart = ActiveCell
Sheets("Charts").Select
ActiveSheet.Range("A148").Select
Selection.Copy
Range("T" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Sheets("Portfolio").Select
rngStart.Select
ActiveCell.Select
Selection.Copy
Sheets("Charts").Select
Range("U" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Range("A159").Select
Selection.Copy
Range("V" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Sheets("Portfolio").Select
rngStart.Select
Range("G").Select
ActiveCell.Copy
Sheets("Charts").Select
Range("X" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Sheets("Portfolio").Select
rngStart.Select
End Sub