Trye this:
Dim wbk as Workbook
Dim wsh As Worksheet
Set wbk = ThisWorkbook 'the workbook which stores the code
Set wsh = wbk.Worksheets("Sheet 1") 'here you store your data
wsh.Range("A1") = wsh.Range("A1") + 2
If you want to change values in a range of cells, you need to loop through that collection of cells.
Dim i As Integer
For i = 1 To 10
wsh.Range("A" & i) = wsh.Range("A" & i) + 2
Next
For further details, please see:
Excel Visual Basic for Applications (VBA) reference | Microsoft Docs[
^]
Good luck!