AMIT JAJOO
New Member
- Joined
- Jan 11, 2016
- Messages
- 6
Hi,need a help on macro,
I want to copy data from one sheet to the row below the last row on another sheet.
I want to copy data from one sheet to the row below the last row on another sheet.
Code:
Workbooks.Open Filename:= _
"C:\Man Macro File.xlsx"
Sheets("Turnover").Select
Range("A1").Select
Workbooks.Open Filename:= _
"C:\over Report.xls"
Range("B12:B13").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows("Man File.xlsx").Activate
ActiveSheet.Paste
Windows("over Report.xls").Activate
ActiveWindow.Close
Sheets("fpi").Select
Range("A1:G1").Select
Workbooks.Open Filename:= _
"C:\stats.xls"
Range("A1:G7").Select
Selection.Copy
Windows("Man File.xlsx").Activate
ActiveSheet.Paste
Windows("stats.xls").Activate
ActiveWindow.Close
Workbooks.Open Filename:= _
"C:\Data Instument .xlsx"
Range("D44").Select
Windows("Man File.xlsx").Activate
ActiveSheet.Previous.Select
Range("J6:M6").Select
Selection.Copy
Windows("Data Instument .xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Man File.xlsx").Activate
ActiveSheet.Next.Select
Windows("Data Instument .xlsx").Activate
Range("H44").Select
Windows("Man File.xlsx").Activate
Range("C15:F15").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Data Instument .xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Man Macro File.xlsx").Activate
Range("C19:F19").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Data Instument .xlsx").Activate
Range("L44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P43:AB43").Select
Application.CutCopyMode = False
Selection.Copy
Range("P44").Select
ActiveSheet.Paste
Range("C44").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=today"
Range("C44").Select
ActiveCell.FormulaR1C1 = "=to"
Range("C44").Select
ActiveCell.FormulaR1C1 = "=(today)"
Range("C44").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Rows("43:43").Select
Range("C43").Activate
Selection.Copy
Rows("44:44").Select
Range("C44").Activate
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("C45").Select
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.Save
ActiveWindow.Close
ActiveWorkbook.SaveAs Filename:= _
"C:\macro.xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
Last edited by a moderator: