Hi
think I've got the positions right...
rylo![]()
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
Bookmarks