VBA Como copiar valor de célula para célula no Excel
Quero copiar um valor de célula para outra célula, mas quero reter o valor em uma variável para poder usá-lo conforme o requisito.
A seguir está o código que tentei-
Private Sub CommandButton1_Click()
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
For x = 1 To NumRows
a= Cells(x, 1).Value.Copy
Cells(x, 2).Value= a.PasteSpecial
Next
End Sub