Issues pasting in column B and making 2nd macro available

I have created an excel macro in VB which searches through a column of values for a given date, it then pastes the row into a second sheet. This works perfectly fine except:-

1. I encountered problems when I tried to put a link to a macro "NewDeals" in Column A of each line, things got very messy, then paste the copied row starting at B instead of A.
2. I also tried to set the print area to stop when there are no more values however I think it sets the print area before the macro finishes copying and pasting so it only prints my original text.
3. I would eventually like to be able to set the date externally without having to enter the macro, I'm guessing this is quite easy so it is less important as I will probably search for an answer once everything else works ok.

Thanks for any contributions.

Sub Date search()

    Dim LSearchRow As Integer
    Dim LCopyToRow As Integer
    Dim x As Long, lastCell As Range  

    On Error GoTo Err_Execute
    
    LSearchRow = 4
    LCopyToRow = 7
    
    While Len(Range("A" & CStr(LSearchRow)).Value) > 0
        
        If Range("F" & CStr(LSearchRow)).Value = "06/02/2008" Then
            Rows(CStr(LSearchRow) & ":" & CStr(LSearchRow)).Select
            Selection.Copy
            Sheets("Current Deals").Select
            Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
            ActiveSheet.Paste
            LCopyToRow = LCopyToRow + 1
            Sheets("Deal History").Select
            
        End If
        
        LSearchRow = LSearchRow + 1
        
    Wend

    x = ActiveSheet.UsedRange.Columns.Count
    Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
    ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
    Application.CutCopyMode = False
    Range("A3").Select
    
    
    Exit Sub
    
Err_Execute:
    MsgBox "Something screwed up"

x = ActiveSheet.UsedRange.Columns.Count
Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address

End Sub

I've probably explained very poorly and I apologise. Thanks for the workbook though is has some useful items.

The search and paste function works fine, and after some tinkering and actually studying the order of the commands the "set print area" is perfect now as well. So...

I have already constructed a separate macro called "Newdeals", I would like a button for this added at the start of each row, column A, before I paste in the copied information, which would then start in column B.

The macro brings up a form that I've already created, this utilises the information in that row, edits it using criteria set then saves it to a new line in another workbook.

I know it would be neater to create the form within the macro however I already have a form I have created.

Is it possible to link a button to a form already created or will I have to create the form anew within the macro?

I thought I'd post my macro so far and hopefully that will clarify exactly what I would like to achieve.

Sub Datesearch()

    Dim LSearchRow As Integer
    Dim LCopyToRow As Integer
    Dim x As Long, lastCell As Range

    On Error GoTo Err_Execute
    
    LSearchRow = 4
    LCopyToRow = 7
    Sheets("Deal History").Select
    
    While Len(Range("A" & CStr(LSearchRow)).Value) > 0
        
        If Range("F" & CStr(LSearchRow)).Value = "06/02/2008" Then
            S = "A" & Format(LSearchRow) & ":K" & Format(LSearchRow)
            ActiveSheet.Range(S).Select
            Selection.Copy
            Sheets("Current Deals").Select
            P = "B" & Format(LCopyToRow) & ":B" & Format(LCopyToRow)
            ActiveSheet.Range(P).Select
            ActiveSheet.Paste
            
            Sheets("Deal History").Select
            R = "R" & Format(LSearchRow) & ":R" & Format(LSearchRow)
            Range(R).Value = Range(R).Value
            ActiveSheet.Range(R).Select
            Selection.Copy
            Sheets("Current Deals").Select
            M = "M" & Format(LCopyToRow) & ":M" & Format(LCopyToRow)
            ActiveSheet.Range(M).Select
            ActiveSheet.Paste
            
            Sheets("Deal History").Select
            L = "L" & Format(LSearchRow) & ":L" & Format(LSearchRow)
            ActiveSheet.Range(L).Select
            Selection.Copy
            Sheets("Current Deals").Select
            N = "N" & Format(LCopyToRow) & ":N" & Format(LCopyToRow)
            ActiveSheet.Range(N).Select
            ActiveSheet.Paste
            
            Rows(CStr(LCopyToRow) & ":" & CStr(LCopyToRow)).Select
            frmNewDeals.show
            
            LCopyToRow = LCopyToRow + 1
            Sheets("Deal History").Select
            
        End If
        
        LSearchRow = LSearchRow + 1
        
    Wend

  
    Sheets("Current Deals").Select
    
    'Set lastCell = Cells.SpecialCells(xlCellTypeLastCell)
    'ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), lastCell).Address
    'Application.CutCopyMode = False
    
    
    Exit Sub
    
Err_Execute:
    MsgBox "Something screwed up"

End Sub

Within the IF I would like to add a button (or something which runs the form when u click on it) in column A of each line which opens up the form "NewDeals" when clicked. At the moment when the macro runs it opens up the form, instead of just adding a link to it.