Hi all, I obtained this code after doing some research but I am not
quite there yet. Would appreciate some ideas on how I can mod this code
to populate columns "A to F" only on the "Order" sheet.

Thanks,
Dean


Public Sub CopyToAnotherSheet()
Dim rCell As Excel.Range
Dim rRow As Excel.Range
Dim wksFound As Excel.Worksheet
Dim wksData As Excel.Worksheet

Dim szLookupVal As String
Dim szRowAddy As String

Dim Lrow As Long


Set wksFound = Sheets("Order") 'Sheet that gets the copied data
Set wksData = Sheets("Database") 'Sheet that contains the data to
search


Lrow = wksFound.Cells(Rows.Count, 1).End(xlUp).Row + 1
If IsEmpty(wksFound.Cells(1, 1)) And Lrow = 2 Then Lrow = 1

szLookupVal = InputBox("Type The APN Number Here Then Press ENTER or
OK", "APN Search", "")
If Len(szLookupVal) = 0 Then Exit Sub

With wksData.Cells

Set rCell = .Find(szLookupVal, , , , , False)
If Not rCell Is Nothing Then

szRowAddy = rCell.Address

Set rRow = rCell

Do

Set rCell = .FindNext(rCell)

Set rRow = Application.Union(rRow, rCell)

rRow.EntireRow.Copy wksFound.Cells(Lrow, 1)

Loop While Not rCell Is Nothing And rCell.Address < szRowAddy

End If
End With

Set rCell = Nothing
Set rRow = Nothing
Set wksFound = Nothing
Set wksData = Nothing
MsgBox "Item Sent to Order Page"
End Sub