Given the following macro:
Option Explicit
Sub mastertest1()
Dim rSource As Range
Dim rCell As Range
Dim iRow As Long
Dim FirstRow As Long
Dim LastRow As Long
Dim wks As Worksheet

For Each wks In Worksheets(Array("IP Office", "Avaya Additional Equipment",
"Partner and Magix", "Vodavi Master Schedule", "Vodavi Misc Direct Parts",
"Paging and Headsets", "Cable, Patch Panel Material", "Power, Racks, Mgt
Etc", "Data Equip & Time Blocks", "Voice & Cable Installation"))
With wks
FirstRow = 4
LastRow = .Cells(.Rows.Count, 4).End(xlUp).Row
End With

For iRow = LastRow To FirstRow Step -1
Set rCell = wks.Cells(iRow, 4)
With rCell
If Not IsEmpty(.Value) Then
If IsNumeric(.Value) Then
Worksheets("VICOM Quote Sheet").Rows(17).Insert
..EntireRow.Copy _
Destination:=Worksheets("VICOM Quote Sheet").Range("a17")
End If
End If
End With
Next iRow
Next wks
End Sub


How do I change it to write the lines in sequence from top to bottom instead
of insert mode which writes the last found as the first line?

Thanks