try it
Lastcol = Sheets("FY13 Running History").Range("A3:A14").CurrentRegion.Columns.Count + 1