Copy cells if arguments match

Downloading an order_export.csv For each order I get multiple rows, one for each item ordered, but my dropoff location is only on the first row (column AT), I need to have the correct drop off that corresponds to the same order number, column A, before I can send it to my label maker.

So what I need to do is check that A3 matches A2 AND check that AT3 is empty, if true I need to copy AT2 to AT3, and continue down the rows until hitting empty on column A.
I also need to do this with another column, but I figured I would start with one.

I uploaded the file so people could see exactly what I'm talking about.

https://drive.google.com/file/d/0BxM...ew?usp=sharing

Maybe:

Sub zaopunk()
Dim i As Long
For i = 3 To Range("A2").End(xlDown).Row Step 2
    If Cells(i, "A") = Cells(i - 1, "A") Then
        If Cells(i, "AT") = "" Then Cells(i, "AT") = Cells(i - 1, "AT")
    End If
Next i
End Sub

So How would I put this into a macro then? Sorry, very green when it comes to Excel. Thank you for the fast response.

Alright, I got it to run. (Sorry, laptop went down on me after you guys replied!) when I ran the macro, it seems like it "sort of" worked. A couple lines got modified correctly, but most did not. Looking at the loop, if I understand it correctly, it should loop until it reaches a blank cell in column A correct?

Ok, so I got that working, and added my code to change another column in the same loop, my final challenge is to look at my Q column, which contains the quantity of the items ordered, and IF it is > 1 THEN copy the entire row, and paste it into newly inserted rows for however many over 1 the quantity was.
Example

Josh - Smith - Soda - 1
John - Doe - Banana - 3
Tony - Brown - Cake - 1

Would need to become

Josh - Smith - Soda - 1
John - Doe - Banana - 3
John - Doe - Banana - 3
John - Doe - Banana - 3
Tony - Brown - Cake - 1


My code thus far is:
Sub prepLabels()
Dim i As Long
For i = 3 To Range("A2").End(xlDown).Row Step 1
If Cells(i, "A") = Cells(i - 1, "A") Then
If Cells(i, "AT") = "" Then Cells(i, "AT") = Cells(i - 1, "AT")
If Cells(i, "Y") = "" Then Cells(i, "Y") = Cells(i - 1, "Y")
If Cells(i, "Q") > 1 Then
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
End If
End If
Next i
End Sub

But obviously I failed at something, as my first row simply replicates 7 times or something.
Any help would be great!

Try:

Sub zaopunk()
Dim i As Long, y As Long
For i = 3 To Range("A2").End(xlDown).Row
If Cells(i, "A") = Cells(i - 1, "A") Then
If Cells(i, "AT") = "" Then Cells(i, "AT") = Cells(i - 1, "AT")
If Cells(i, "Y") = "" Then Cells(i, "Y") = Cells(i - 1, "Y")
End If
Next i
For i = Range("A2").End(xlDown).Row To 3 Step -1
If Cells(i, "Q") > 1 Then
    y = Cells(i, "Q").Value
    Cells(i, "D").Value = y
    Rows(i).Copy
    Rows(i).Offset(1).Resize(y - 1).Insert
End If
Next i

End Sub