Set objHS = .Columns("A:A").Find(What:="", LookAt:=xlWhole) HS_row = .Range(objHS.Address).Row - 1 Set objLS = .Rows("1:1").Find(What:="", LookAt:=xlWhole) LS_col = .Range(objLS.Address).Column - 1