Copying Data from one table to another

[KlayColgrove]

I am trying to get inputted data from one worksheet to another. I want to be able to enter different values in the worksheet "Add Line" that will transfer over to the last row in "Work Order Lines" with the corresponding values. I am relatively new to VBA and have been doing research on the subject and haven't been able to solve this problem

Dim ws As Worksheet
Dim wol As Worksheet
Set ws = ActiveWorkbook.Sheets("Add Line")
Set wol = ThisWorkbook.Sheets("Work Order Lines")



ws.Range("C3").Copy
wol.Range("B" & lRows).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

I keep getting an error on the last line. I got most of the code from other forums, so I could be adding in variables that I have not added myself.
Any help would be great

 

[Osvaldo Palmeiro]

Try:

Sub CopyPaste()
 Dim ws As Worksheet, wol As Worksheet[COLOR=#ff0000], lRows As Long[/COLOR]
  Set ws = ActiveWorkbook.Sheets("Add Line")
  Set wol = ThisWorkbook.Sheets("Work Order Lines")
   ws.Range("C3").Copy
  [COLOR=#ff0000] lRows = wol.Cells(Rows.Count, 2).End(3).Row[/COLOR]
   wol.Range("B" & lRows [COLOR=#ff0000]+ 1[/COLOR]).PasteSpecial Paste:=xlValues
End Sub

or

Sub Replicate()
 Sheets("Work Order Lines").Cells(Rows.Count, 2).End(3)(2) = Sheets("Add Line").[C3]
End Sub