QR code generator for multiple worksheets

[nkendri24]

I have a working QR code generator that works for one page put now I want to have this QR code populate cells in another worksheet. the code is in QRTemplate worksheet and the second worksheet I would like to have the QR code Generate is QRLabel worksheet. The code is:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, c As Range

On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With

Set r = Intersect(ActiveSheet.Columns(6).Precedents, Target)
If r Is Nothing Then GoTo EndSub

For Each c In r.Rows
With c
ActiveSheet.Shapes("QR " & .Row).Delete
QRcodeToPicUTF8 Cells(.Row, "F"), Environ("temp"), _
"QR " & .Row, Cells(.Row, "G")
End With
Next c

EndSub:
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub


Another issue is that the second worksheet the QR labels will be spaced. The first QR code will be in cell A1 the second in A3 and so on till A41(22 QR code) then repeat in E1 and repeat at I1 and repeat at M1 till there is 83 QR codes.

Or if there is a easier alternative let me know thank you in advance for any help.