Shortening Code

[T De Villiers]

An efficient way of coding the below is much app:

sr.Range(Cells(60, 16), Cells(64, 16), Cells(72, 16), Cells(74, 16), _
Cells(75, 16), Cells(164, 16)) = sr.Cells(1, 2)

Regards