I am trying to create a macro in Excel. I need it to copy certain data from a specific row. The row would be based on the last cell with data in a specific column. After I copy each peice of data it gets pasted into another worksheet, then they all get put through a calculation, and I want the results/value pasted in that cell. Here is what i have so far:
Range("D18").Select
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C8").Select
ActiveSheet.Paste
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("I18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C10").Select
ActiveSheet.Paste
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("J18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C12").Select
ActiveSheet.Paste
Application.WindowState = xlMinimized
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("K18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C14").Select
ActiveSheet.Paste
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("F18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
When I run it as is it always is the same data from the same rows I know I need to do a findnext or something but dont know how
Thanks
Range("D18").Select
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C8").Select
ActiveSheet.Paste
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("I18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C10").Select
ActiveSheet.Paste
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("J18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C12").Select
ActiveSheet.Paste
Application.WindowState = xlMinimized
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("K18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("LNG_SC_Version_G.xls").Activate
Range("C14").Select
ActiveSheet.Paste
Range("C18").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Review_Àü·Â·®¿ä±Ý.xls").Activate
Range("F18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
When I run it as is it always is the same data from the same rows I know I need to do a findnext or something but dont know how
Thanks