Using variables for Range

Hi, I am trying to set up a macro to select a range from B8:CS8, copy them, transpose and paste into another spreadsheet, then go back to the first spreadsheet and select a range from B9:CS9, copy, transpose and paste below the previous paste.

Here is what I've tried...but the range is not working...can you please help?

Thanks!

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/9/2009 by Jacob
'

'
Windows("Book1.xls"). _
Activate

Dim rInd As Range
Dim iRow As Long

Set rInd = Range("B8:B372")

For iRow = 1 To rInd.Rows.Count
Range(B&iRow:CS&iRow).Select

Selection.Copy
Windows("Book2.xls").Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(97, 0).Select
Windows("Book1.xls"). _
Activate
Next

End Sub
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories