VBA Code to copy 4 cells from one worksheet to another Worksheet

[Paul_Hossler]

Three changes

Option Explicit

Public Sub TotalsUpdated()
' Define the source and destination worksheets
Dim sourceSheet As Worksheet
Dim destSheet As Worksheet
' Set the source and destination worksheets

Set sourceSheet = ActiveWorkbook.Worksheets("FormsControl Sheet")
Set destSheet = ActiveWorkbook.Worksheets("Rate Calc")

' Define the fields to copy
Dim sourceFields As Variant     '   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
sourceFields = Array("H37", "J37", "F37", "D37")

' Define the destination cells
Dim destCells As Variant    '   <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
destCells = Array("C9", "C10", "C11", "C12")

' Copy the fields from the source worksheet to the destination worksheet
Dim i As Integer
For i = 0 To UBound(sourceFields)
    destSheet.Range(destCells(i)).Value = sourceSheet.Range(sourceFields(i)).Value  '   <<<<<<<<<<<<<<<<<<<<<<<<<
Next i

End Sub