Sub ВставитьДату()
    
    Dim lr As Long
    
    lr = Cells.Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row + 1
    
    With Range("A" & lr & ":V" & lr)
        .Value = " "
        .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Interior.Color = 5296274
    End With
    
    With Range("O" & lr)
        .Value = Date
        .HorizontalAlignment = xlCenter
        .Font.Bold = True
    End With

End Sub

Sub www()
  'Определяем № последней заполненной строки в любой
  'колонке, например "А", она заполнена до конца таблицы.
  '+ 1-на строка за ней.
  S = Range("A" & Rows.Count).End(xlUp).Row + 1 '№ строки
   
  'Что бы выделить строку по ширине таблицы
  Range("A" & S & ":W" & S).Select
  
  'Что бы закрасить строку по ширине таблицы
  Range("A" & S & ":W" & S).Interior.ColorIndex = 6

  'Что бы выделить всю строку до конца
  Rows(S).Select

  'Что бы закрасить всю строку до конца
  Rows(S).Interior.ColorIndex = 6

  'Чтобы заполнить ячейки строки пробелом - " ".
  '(для видимости заполним знаком "Х")
  Range("A" & S & ":W" & S) = "Х"

  'Что бы вставить дату в колонку "О"
  Range("O" & S) = Date
  
End Sub