Shortening Code

Hi,

How do I shorten the following:

sr.Cells(23, 6) = ActiveCell.Offset(1, 0)
sr.Cells(24, 6) = ActiveCell.Offset(2, 0)
sr.Cells(25, 7) = ActiveCell.Offset(3, 0)
sr.Cells(26, 8) = ActiveCell.Offset(4, 0)
sr.Cells(27, 6) = ActiveCell.Offset(5, 0)
sr.Cells(28, 6) = ActiveCell.Offset(9, 0)
sr.Cells(29, 7) = ActiveCell.Offset(12, 0)
sr.Cells(30, 8) = ActiveCell.Offset(13, 0)
sr.Cells(31, 6) = ActiveCell.Offset(14, 0)
sr.Cells(32, 8) = ActiveCell.Offset(15, 0)
sr.Cells(33, 6) = ActiveCell.Offset(16, 0)
sr.Cells(34, 6) = ActiveCell.Offset(26, 0)
sr.Cells(35, 6) = ActiveCell.Offset(24, 0)
sr.Cells(36, 6) = ActiveCell.Offset(28, 0)
sr.Cells(37, 6) = ActiveCell.Offset(29, 0)
sr.Cells(48, 6) = ActiveCell.Offset(6, 0)
sr.Cells(49, 8) = ActiveCell.Offset(7, 0)
sr.Cells(50, 7) = ActiveCell.Offset(8, 0)
sr.Cells(60, 8) = ActiveCell.Offset(17, 0)
sr.Cells(64, 6) = ActiveCell.Offset(27, 0)
sr.Cells(72, 6) = ActiveCell.Offset(30, 0)
sr.Cells(74, 6) = ActiveCell.Offset(10, 0)
sr.Cells(75, 6) = ActiveCell.Offset(11, 0)
sr.Cells(164, 8) = ActiveCell.Offset(18, 0)
sr.Cells(170, 8) = ActiveCell.Offset(21, 0)
sr.Cells(171, 7) = ActiveCell.Offset(22, 0)


Regards

what r u trying to acheive with code?

coz depending on exactly what your doing you could prob use a loop

You can try with:

Please Login or Register  to view this content.

or with:

Please Login or Register  to view this content.

May be many other shorter ways as:
"A1-C25, Z10-F22, AZ5-AB18" etc.

Regards,
Antonio