Copy Rows To Sheet Based On Cell Value In Range

[JoeMicro]

HI:
Could anybody help me

i need a macro button on my excel sheet that should do the following.

i have a range (Ex: A3:E46) which is being continuously filled, i need to transfer the information to another sheet depending on column "E", (Ex: if "E3" = "A" paste row to sheet2 if = "B" paste row to sheet3) and so on each row could have another string in column "E".

after the paste is done it should clear the range making place for new entries, that should also be copied finding the next empty cell (it shouldn't delete the old entries)

i have got this code already, but it doesn't copy the entire Row, it just copy's information in column "E".

Sub VCopy() 
    Dim strWs As String
    Dim strPass As String
    Dim rCell As Range

 For Each rCell In Range("E3",Cells(Rows.Count,"E").End(xlUp)) 
         
        Select  Case UCase(rCell) 
        Case "A": strWs = "Sheet1" 
        Case "B": strWs = "Sheet2" 
        Case "C": strWs = "Sheet3" 
             'Follow the pattern' End Select 
         
        rCell.EntireRow.Copy _ 
        Destination:= Sheets(strWs).Cells(Rows.Count, 1).End(xlUp)(2, 1) 
         
    Next rCell 
    Range("E3", Cells(Rows.Count, "E").End(xlUp)).Clear 
End Sub

Thanks in Advanced

 

[SkipVought]

Please post VBA Code questions in Forum707.

Skip,

_{When a wee mystic is on the loose..
It's a Small Medium at Large!}

 

[JoeMicro]

How do i transfer this thread over, i don't want to cross post.

Thanks

 

[SkipVought]

Don't worry about it.

Skip,

_{When a wee mystic is on the loose..
It's a Small Medium at Large!}