PeterJohns27
New Member
- Joined
- Jun 17, 2014
- Messages
- 22
Selecting row from another worksheet , copy to next empty row in another worksheet. Though selecting the correct row it keeps coming up with an error! Please could you help?
Sub Latest_update()
'
' Latest_update Macro
' Loading Latest results to Latest WS
'
' Keyboard Shortcut: Ctrl+r
Dim WsL As Worksheet
Dim lastRowWsL As Long
Set WsL = Worksheets("Latest")
'Dim Sheets("DataForm") As Worksheet
lastRowWsL = WsL.Cells(Rows.Count, "B").End(xlUp).Row
Sheets("DataForm").Select
Range("D2").Select
Range("D2:D21").Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("D1:W1").Copy
Sheets("Latest").Select
WsL.Cells("B" & lastRowWsL + 1).PasteAll ' THIS IS THE PROBLEM LINE
'Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
' Range("B2:U2").Select
'Application.CutCopyMode = False
'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("DataForm").Select
Sheets("DataForm").Select
Range("D4:D21").Select
Selection.ClearContents
Range("D2").Select
Selection.ClearContents
End Sub
[/CODE]
[/CODE]
Sub Latest_update()
'
' Latest_update Macro
' Loading Latest results to Latest WS
'
' Keyboard Shortcut: Ctrl+r
Dim WsL As Worksheet
Dim lastRowWsL As Long
Set WsL = Worksheets("Latest")
'Dim Sheets("DataForm") As Worksheet
lastRowWsL = WsL.Cells(Rows.Count, "B").End(xlUp).Row
Sheets("DataForm").Select
Range("D2").Select
Range("D2:D21").Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("D1:W1").Copy
Sheets("Latest").Select
WsL.Cells("B" & lastRowWsL + 1).PasteAll ' THIS IS THE PROBLEM LINE
'Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
' Range("B2:U2").Select
'Application.CutCopyMode = False
'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("DataForm").Select
Sheets("DataForm").Select
Range("D4:D21").Select
Selection.ClearContents
Range("D2").Select
Selection.ClearContents
End Sub
[/CODE]
[/CODE]