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