tonybarr007
Technical User
Below is the current code, It works fine for the first line but I am unaware of how to specify the range that rather than being "A3:H3" it will copy the data from Sheet 2 "B2:B9" and insert into the next row. please help.
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/12/2007 by Anthony Barr
'
' Keyboard Shortcut: Ctrl+r
'
Range("B2:B9").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A3:H3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
Sheets("Sheet2").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 6/12/2007 by Anthony Barr
'
' Keyboard Shortcut: Ctrl+r
'
Range("B2:B9").Select
Selection.Copy
Sheets("Sheet4").Select
Range("A3:H3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
Sheets("Sheet2").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub