Copy Data to another sheet.

[dr greenthumb]

Hi,

I have a macro that will copy data from one sheet to another based on whether it finds a date in 1 row, is it possible to change this macro to look on 3 separate rows?

here is the marco I have:

Sub CopyDataToPlan()

    Dim LDate As String
    Dim LColumn As Integer
    Dim LFound As Boolean
    
    On Error GoTo Err_Execute
    
    'Retrieve date value to search for
    LDate = Sheets("Rolling Plan").Range("B4").Value
    
    Sheets("Plan").Select
    
    'Start at column B
    LColumn = 2
    LFound = False
    
    While LFound = False
    
        'Encountered blank cell in row 2, terminate search
        If Len(Cells(2, LColumn)) = 0 Then
            MsgBox "No matching date was found."
            Exit Sub
        
        'Found match in row 2
        ElseIf Cells(2, LColumn) = LDate Then
                        
            'Select values to copy from "Rolling Plan" sheet
            Sheets("Rolling Plan").Select
            Range("B5:B9").Select
            Selection.Copy
            
            'Paste onto "Plan" sheet
            Sheets("Plan").Select
            Cells(3, LColumn).Select
            Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
                False, Transpose:=False
        
            LFound = True
            MsgBox "The data has been successfully copied."
            
        'Continue searching
        Else
            LColumn = LColumn + 1
        End If
            
    Wend
    
    On Error GoTo 0
    
    Exit Sub
    
Err_Execute:
    MsgBox "An error occurred."
    
End Sub

Any help much appreciated.

Alec.