Hi, I am trying to paste from the sheet output to the input sheet in a different workbook, but only after the last used row. My code doesnt seem to work.
Sub CopynPasteWrkBk()
Dim InputFile As Workbook
Dim OutputFile As Workbook
Dim Inputpath As String
Dim Outputpath As String '
Dim ws1 As Worksheet, ws2 As Worksheet
'## Open both workbooks first:
Set InputFile = ThisWorkbook
Set OutputFile = Workbooks.Open("Z:\Datbase.xlsx")
Set ws1 = InputFile.Sheets("Output")
Set ws2 = OutputFile.Sheets("Input")
'Now, copy what you want from InputFile:
InputFile.Sheets("Output").Activate
InputFile.Sheets("Output").Range("A3:T12").Select
Selection.Copy
'Now, paste to OutputFile worksheet:
OutputFile.Sheets("Input").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Close InputFile & OutputFile:
'OutputFile.Close savechanges:=True
'MsgBox "Data Successfully Logged"
End Sub
Sub CopynPasteWrkBk()
Dim InputFile As Workbook
Dim OutputFile As Workbook
Dim Inputpath As String
Dim Outputpath As String '
Dim ws1 As Worksheet, ws2 As Worksheet
'## Open both workbooks first:
Set InputFile = ThisWorkbook
Set OutputFile = Workbooks.Open("Z:\Datbase.xlsx")
Set ws1 = InputFile.Sheets("Output")
Set ws2 = OutputFile.Sheets("Input")
'Now, copy what you want from InputFile:
InputFile.Sheets("Output").Activate
InputFile.Sheets("Output").Range("A3:T12").Select
Selection.Copy
'Now, paste to OutputFile worksheet:
OutputFile.Sheets("Input").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'Close InputFile & OutputFile:
'OutputFile.Close savechanges:=True
'MsgBox "Data Successfully Logged"
End Sub