Try this macro (change the worksheet reference and starting row Const as
required)....

Sub ClearExcessData()
Dim X As Long
Dim LastRow As Long
Const StartRow As Long = 2
With Worksheets("Sheet3")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For X = StartRow To LastRow
If .Cells(X, "A").Offset(1).Value < "" Then
.Cells(X, "D").Resize(1, .Columns.Count - 4).Clear
End If
Next
End With
End Sub

--
Rick (MVP - Excel)


"G. Yamada" wrote in message
...
Hello,

I am completely new to Excel VBA and I have a task that can only be done
using it. I need to format a group of orders to upload them. Essentially
I
start with:

78693624286 1 9.71 2793888 ....
02761688770 1 2.99 2793888 ...

02454352960 1 8.45 2792280 ...
02454352959 1 8.45 2792280 ...

78693675842 1 8.65 2791190 ...
02454305295 1 21.86 2791190 ...
78693614475 1 7.25 2791190 ...
04339614171 1 9.77 2791190 ...

08536513892 1 3.99 2791055 ..


What I want to end up with is:

78678693286 1 9.71
02761688770 1 2.99 2793888 ...

02454352960 1 8.45
02454352959 1 8.45 2792280 ...

78693675842 1 8.65
02454305295 1 21.86
78693614475 1 7.25
04339614171 1 9.77 2791190 ...

08536513892 1 3.99 2791055 ...


The orders are separated by an empty row (which is already done for me)
according to the order numbers in the D column (numbers starting with
279...). Each order may have 1 or more items designated by the item
number
in the first column. As you can see, the first three orders (groups) have
more than one item in the order. These are what have been causing an
issue
for me. I need to clear the information from the D column onwards
(including
D) on the item lines (rows) which are part of the same order EXCEPT for
the
last line in the order as shown above. I would sincerely appreciate any
help.