Hi ,This is my code.
Help required..urgent...
I need to repeat this n times till i find a blank cell.
Sub Macro7()
'
' Macro7 Macro
'
' Keyboard Shortcut: Ctrl+l
'
Selection.Copy
Sheets("OUTPUT").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("PLANT").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("OUTPUT").Select
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, -1).Range("A1").Select
Selection.Copy
ActiveCell.Range("A1:A10").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(10, 0).Range("A1").Select
Sheets("PLANT").Select
ActiveWindow.LargeScroll ToRight:=-3
ActiveCell.Select
Sheets("MATERIAL").Select
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Bookmarks