Reply to thread

Message: [QUOTE="Bob Phillips, post: 6161159"] Is this any better? With ActiveSheet If sId > 5 Then LastRow = .UsedRange.Rows.Count - .UsedRange.Row - 1 LastCol = .UsedRange.Columns.Count + .UsedRange.Column - 1 .Rows("1:1").Insert shift:=xlDown With .Range("A1") .Value = 1 .AutoFill Destination:=Range(Cells(1, 1), Cells(1, LastCol + 1)), Type:=xlFillSeries End With .Cells(2, LastCol + 1).Resize(LastRow).Value = Format(Date, "mm/dd/yyyy") End If End With -- HTH Bob Phillips (replace somewhere in email address with gmail if mailing direct) [/QUOTE]