same function edit vba excel

Dim ws As Worksheet
Dim i As Long

'~~ Change this to the relevant sheet
Set ws = Sheet1

With ws
For i = 1 To 16
.Cells(i, "A").Value = .Cells(i, "E").Value
.Cells(i, "B").Value = .Cells(i, "F").Value
.Cells(i, "C").Value = .Cells(i, "G").Value
Next i
End With



I have VBA Excel as above.

in order to function like the code below what I need to change, yeah



Dim lastRowCount As Integer
totalRow = (Cells(Rows.Count, 1).End(xlUp).Row)
Dim DataRange As Variant
Dim i As Integer
Dim firstRowCount As Integer
firstRowCount = Target.Row
i = 0
DataRange = Sheets("Sheet1").Range("A" & firstRowCount & ":C" & firstRowCount).Value
For Each Item In DataRange


i = i + 1
Next
Dim jsonstring As String
jsonstring = "["& Code1 & Code2 & Code3& "]"



what I changed to be used