I guess this is working
Dim yRow As Long, rstClone As Recordset
Dim oldRegion As Long, oldCIN As String, oldID As Long, oldRate As Long, tempCounter As Long
Set rstClone = CurrentDb.OpenRecordset("Table").Clone
tempCounter = 1
With rstClone
If .BOF = False...