VBA for all available rows input formula in column D

[LNG2013]

Should be simple.... I need to say for all rows that have data in them from end up, put this formula =I1-(5/24) in column J. Adjusting the I# for each row.

I am subtracting 5 hours from the time, and need to use this formula to maintain the structure of the other data in the cells.

Cells have a custom format.

Format Cells - Custom - m/d/yyyy h:mm

Excel Workbook
	I	J
1	Time	AdjustedTime
2	11/30/11 20:26	11/30/2011 15:26
3	11/30/11 21:37	11/30/2011 16:37
4	12/1/11 0:42	11/30/2011 19:42
5	12/1/11 1:27	11/30/2011 20:27
6	12/1/11 13:34	12/1/2011 8:34
Sheet1

 

[AlphaFrog]

    With Range("J2:J" & Range("I" & Rows.Count).End(xlUp).Row)
        .FormulaR1C1 = "=RC[-1]-5/24"
        .NumberFormat = "m/d/yyyy h:mm"
    End With

 

[LNG2013]

You sir are a miracle worker! Gold Star! This worked wonderfully!