Hi

think I've got the positions right...

Sub aaa()
  Dim WorkSH As Worksheet
  Set WorkSH = Sheets("New Model")
  
  Sheets("Results TEST").Activate
  
  For i = 3 To Cells(2, Columns.Count).End(xlToLeft).Column
    WorkSH.Range("C5:C6").Value = Cells(2, i).Resize(2, 1).Value
    
    Cells(4, i).Resize(26, 1).Value = WorkSH.Range("J178:J203").Value
    
    Cells(30, i).Resize(78, 1).Value = WorkSH.Range("J205:J282").Value
  
  Next i
End Sub
rylo