A modified VBA originally provided by Anonymous on July 2, 2004 works for what I need if the cell in column A contains a manually entered value. I am using a formula in the target cell that will result in either a blank cell or a value. I need to modify the VBA to allow for the formula but ignore a blank cell and fill down only when the formula results in a value. Here is what I currently have:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim c As Range, i As Long On Error Resume Next Set c = Intersect(Target, Columns(1)) If c Is Nothing Then Exit Sub i = c.Row Application.EnableEvents = False Range("B" & i - 1 & ":AM" & i - 1).Copy Range("B" & i & ":AM" & i) Application.EnableEvents = True On Error GoTo 0 End Sub
Much appreciation for any help.