Sub CopyandPaste()
    Dim LR As Long
    Dim i As Long
    With ActiveSheet
        LR = .Range("I" & Rows.Count).End(xlUp).Row
        For i = 2 To LR
            If Cells(i, 9).Value = "" Then Cells(i, 9).Value = Cells(i, 5).Value
        Next i
    End With
    Columns(9).NumberFormat = "mm/dd/yyyy"
End Sub