Sub Extend() With Range("A1:E5") .Borders.LineStyle = xlLineStyleNone .Resize(.Rows.Count + 1).Name = "Database" End With End Sub