rjw29bs4
11-05-2017, 02:10 PM
hi
i am trying to copy data to next emty row
i have got this far
Sub Macro3()
'
' Macro3 Macro
'
'
Worksheets("copy and close").range("e4").copy Worksheets("INPUT").range("a5")
Worksheets("copy and close").range("a10").copy Worksheets("INPUT").range("b5")
Worksheets("copy and close").range("e3").copy Worksheets("INPUT").range("c5")
ActiveWindow.SmallScroll Down:=0
range("C31").Select
Selection.copy
Sheets("INPUT").Select
range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("copy and close").Select
range("E31").Select
Application.CutCopyMode = False
Selection.copy
Sheets("INPUT").Select
range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("copy and close").Select
End Sub
can you help
i am trying to copy data to next emty row
i have got this far
Sub Macro3()
'
' Macro3 Macro
'
'
Worksheets("copy and close").range("e4").copy Worksheets("INPUT").range("a5")
Worksheets("copy and close").range("a10").copy Worksheets("INPUT").range("b5")
Worksheets("copy and close").range("e3").copy Worksheets("INPUT").range("c5")
ActiveWindow.SmallScroll Down:=0
range("C31").Select
Selection.copy
Sheets("INPUT").Select
range("E5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("copy and close").Select
range("E31").Select
Application.CutCopyMode = False
Selection.copy
Sheets("INPUT").Select
range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("copy and close").Select
End Sub
can you help