Could you try this :

dim i as integer
dim str, path as string
i = 2
str "A2"
path =      "P:\CET - e\TL Monthly Reports\TL Reports\"
While Range(str) <> ""
    Range(str).select
    ActiveWorkbook.SaveAs Filename:= path & str
    ' next one
    i = i+1
    str = "A" & i
wend