Private Sub Worksheet _Change(ByVal Target As Range)
Dim I As Integer
for i = 2 ' The row were the merged cells will be starting in column R to Column X
if Cells(I,"R").Value <> "" Then
Celles(I,"R").Value = Date -1 & " " & Time
Cells(I,"R").NumberFormat = "dddd/mmmm/yyyy h: mm AM/PM"
For what ever reason it takes up the entire column, and I would like to confine it to a Row starting in R2 Merged all the way to X2.