Hi there
Try this in your module:
Sub Copy_Rows()
Dim i As Long
Dim ws As Worksheet
Dim oDest As Worksheet
Dim oData As Worksheet
Dim strRange As String
Set ws = Worksheets("NamesList") ' Rows I want to copy listed here
Set oData = Worksheets("Data") ' This Contains the Rows to Copy
' Set oDest = Worksheets("Sheet2") ' >>> Wrong Sheet name
Set oDest = Worksheets("Sheet 2") ' Paste here
For i = 2 To ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' Cells to Copy IFinstring
' ws.Range(Cells(i, "A")).Copy Destination:=oDest.Range(ws.Cells(i, "B").Value) '>>> Wrong cell reference
ws.Cells(i, "A").Copy Destination:=oDest.Range(ws.Cells(i, "B"))
Next i
End Sub