Solved: Small Update For Solved Changing Ranges

[sooty8]

Hi P45Cal

I wondered if it was possible for a small update to the original - I have put the site id's on row1 and leave all columns C3 thru L3 empty - if I enter the ID numbers in column B anthing from row 3 to 53 the Site Id's would copy down to the row where the ID's end. Have attached a sample as is now.

Regards

Sooty8

[Bob Phillips]

[vba]

Public Sub ProcessData()
Dim Lastrow As Long
Dim i As Long

Application.ScreenUpdating = False

With ActiveSheet

Lastrow = .Cells(.Rows.Count, "B").End(xlUp).Row
For i = 3 To 12

.Cells(3, i).Resize(Lastrow - 2).Value = .Cells(1, i).Value
Next i
End With

Application.ScreenUpdating = True
End Sub
[/vba]

[sooty8]

Hi Xld

Thank you for your help - everything now working spot on and exactly as required.

Regards

Sooty8