VBA help for looping

Hello EXCELcior08,

Here is one way to do it.

Sub Example_1()

  Dim I As Long
  Dim Rng1 As Range
  Dim Rng2 As Range
  
    Set Rng1 = Range("G4:J4")
    Set Rng2 = Range("A2:D2")
    
      For I = 1 To Rng1.Cells.Count
        If Rng1.Cells(1, I) = "1" Then
           Rng2.Cells(1, I) = Cells(1, Rng1.Cells(1, I).Column)
        End If
      Next I
      
End Sub