Solved: macro help

[ZVI]

And one more one

Sub Test1()
  Const StartRow = 2  ' <-- Change to suit
  With ActiveSheet.UsedRange
    With Range(Cells(StartRow, "D"), Cells(.Row + .Rows.Count - 1, "D"))
      .Value = .Offset(, -2).Value
    End With
  End With
End Sub

P.S. Not sure that I’ve understood the task correctly, Oleg if it's more suitable you can ask me by PM on Russian