Paste into cells in new workbook.

[moonbreakker]

First of all i am sorry if this is a re-post to an open thread. I dont see my post for some reasons and since i did not get any reply, i guess it never got posted.

Anyways, hello..

I have a code ready which used to work with other workbook. I have attached 2 workbooks and this is my code.

Sub CardBG()
' hay Macro
'
' Keyboard Shortcut: Ctrl+h
'
       
    Dim f As String
    Dim ii As String
    Dim r As String
    Dim ri As String
    Dim path As String
    
    'Turn screen updating off. You won't see the client file being updated.
Application.ScreenUpdating = False

    

   
   
   ' path to your folder
    path = "D:\excelreport\CardBG\"
    
    i = 1
    x = Cells(i + 1, 1)
    
    Do While x <> Empty
    
    ii = i
    f = ii + ".xlsx"
   
      
    Workbooks.Open Filename:=path & "CARDBG.xlsx"
    Windows("CARDBG.xlsx").Activate
    ActiveWorkbook.SaveCopyAs Filename:=path & f
    Workbooks.Open Filename:=path & f
    
   
    ri = i + 1
    
    Windows("CARDBG.xlsm").Activate
    
    
    
   r = "B" & ri
    Range(r).Select
    Selection.Copy
    Windows(f).Activate
    Range("C6").PasteSpecial xlPasteValues
    
    
    
    r = "C" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C7").PasteSpecial xlPasteValues
    
    
    
    r = "D" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G6").PasteSpecial xlPasteValues
    
    
    
    r = "E" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G7").PasteSpecial xlPasteValues
    
    
    
    r = "F" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("D8").PasteSpecial xlPasteValues
    
    
    
     r = "G" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C9").PasteSpecial xlPasteValues
    
    
    
     r = "I" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C15").PasteSpecial xlPasteValues
    
    
    
    r = "J" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C16").PasteSpecial xlPasteValues
    
    
    
    r = "K" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G15").PasteSpecial xlPasteValues
    
    
    
    r = "L" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G16").PasteSpecial xlPasteValues
    
    
    
     r = "M" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("D17").PasteSpecial xlPasteValues
    
    
    
      
     r = "N" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C18").PasteSpecial xlPasteValues
    
    
    
    r = "P" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C24").PasteSpecial xlPasteValues
    
    
    
    r = "Q" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C25").PasteSpecial xlPasteValues
    
    
    
    r = "R" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G24").PasteSpecial xlPasteValues
    
    
    
    r = "S" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G25").PasteSpecial xlPasteValues
    
    
    
        
    r = "T" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("D26").PasteSpecial xlPasteValues
    
    
    
     r = "U" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C27").PasteSpecial xlPasteValues
    
    
    
    r = "W" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C33").PasteSpecial xlPasteValues
    
    
    
    r = "X" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C34").PasteSpecial xlPasteValues
    
    
    
    r = "Y" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G33").PasteSpecial xlPasteValues
    
    
    
    r = "Z" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("G34").PasteSpecial xlPasteValues
    
    
    
        
    r = "AA" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("D35").PasteSpecial xlPasteValues
    
    
    
    
    r = "AB" & ri
    Range(r).Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(f).Activate
    Range("C36").PasteSpecial xlPasteValues
    
        
   ActiveWorkbook.Save
   ActiveWorkbook.Close
   
    Windows("CARDBG.xlsx").Activate
    ActiveWorkbook.Save
    ActiveWorkbook.Close
   
    
 
    Windows("CARDBG.xlsm").Activate
    i = i + 1
    x = Cells(i + 1, 1)
    Loop
    
    
       
    'Turn screen updating ON. You won't see the client file being updated.
Application.ScreenUpdating = True
    
End Sub

Code does: Make a copy of sample file ---> rename it as 1.xlsx 2.xlsx..and so on ---> Copy cells into those files---> save file---> loop.

This code works fine with other workbooks but i am not able to run the code here and getting error. Debug shows stuck at G6.
What am i missing?

TIA