Range("A" & (ActiveCell.Row)).Copy ("H2")

Range("H2").value = Cells(ActiveCell.row, 1).value

Range("A" & (ActiveCell.Row)).Copy Destination:=Range("H2")

Option Explicit

Public Sub tmpSO()

Dim ws As Worksheet

Set ws = ThisWorkbook.ActiveSheet
ws.Range("A" & (ActiveCell.Row)).Copy Destination:=ws.Range("H2")

End Sub

Range("A" & (ActiveCell.Row)).Copy [H2]

Range("A" & (ActiveCell.Row)).Copy Range("H2")