neee,eher so
ActiveSheet.ListObjects.Add(xlSrcRange,activesheet.usedrange, , xlYes).Name = "tbl"
du solltest dir mal ansehen wie man ZEllbezüge in Vba darstellt. Range("A1" & Zeile) ist Murks Da steht schon eine ZeilenNr drin die 1