hi
i am trying to copy cell value from one file to another file and save that workbook for that i am using below code but i am facing error in For loop

First time it execute well but send time it gives errror

Dim i As Long

Const strPath As String = "D:\TestFolder\New\"
Const strROC As String = "D:\TestFolder\New\New ROC Template 22-12-17.xlsx"
Const strMerge As String = "D:\TestFolder\New\Merge file.xlsx"
Set MergeWorkbook = Workbooks.Add(strMerge)
'Set MergeWorkbook = Workbooks(strMerge)
Set RocWorkbook = Workbooks.Add(strROC)

Set MergeSheet = MergeWorkbook.Worksheets("Sheet1")
Set RocSheet = RocWorkbook.Worksheets("Roc Template")

LastRow = MergeSheet.Cells(Rows.Count, "a").End(xlUp).Row
myrow = 2
    
       
    For rowPointer = 1 To LastRow
       
        
            RocSheet.Cells(2, 4).Value = MergeSheet.Cells(myrow, 1).Value
            RocSheet.Cells(3, 4).Value = MergeSheet.Cells(myrow, 2).Value
            RocSheet.Cells(4, 4).Value = MergeSheet.Cells(myrow, 3).Value
            RocSheet.Cells(5, 4).Value = MergeSheet.Cells(myrow, 4).Value
            RocSheet.Cells(6, 4).Value = MergeSheet.Cells(myrow, 6).Value
            RocSheet.Cells(11, 4).Value = MergeSheet.Cells(myrow, 5).Value
            RocSheet.Cells(12, 4).Value = MergeSheet.Cells(myrow, 8).Value
            RocSheet.Cells(13, 4).Value = MergeSheet.Cells(myrow, 9).Value
            RocSheet.Cells(15, 4).Value = MergeSheet.Cells(myrow, 10).Value
            RocSheet.Cells(16, 4).Value = MergeSheet.Cells(myrow, 11).Value
            RocSheet.Cells(18, 2).Value = MergeSheet.Cells(myrow, 12).Value
            RocSheet.Cells(20, 2).Value = MergeSheet.Cells(myrow, 13).Value
            RocSheet.Cells(22, 4).Value = MergeSheet.Cells(myrow, 14).Value
            RocSheet.Cells(22, 5).Value = MergeSheet.Cells(myrow, 15).Value
            
            'RocWorkbook.SaveAs strPath & CStr(RocSheet.Range("D" & 3)) & ".xlsx"
            RocWorkbook.SaveAs strPath & CStr(RocSheet.Range("D3")), 51
           
            RocWorkbook.Close 0
            MergeWorkbook.Close 0
            Set RocWorkbook = Nothing
            
            myrow = myrow + 1
           
            
       
    Next rowPointer
        
        

End Sub
please guide me . heaps thanks in advance