ник: snipe
вот это
CntRow = "A4:AI" & edtCntRow
поменяйте вот на это
CntRow = "A5:AI" & edtCntRow
а вот это
DoCmd.TransferSpreadsheet acImport, 8, "ExelTable", xmlFile, True, CntRow '"A4:AI6"
на вот это
DoCmd.TransferSpreadsheet acImport, 8, "ExelTable", xmlFile, false, CntRow '"A4:AI6"
и все должно заработать