[SOLVED]Help with VBA Macro - Returning Entire Row

Hi BamBam,

Try this:

Sub Button1_Click()
    Dim LR As Long, R As Long: R = 2
    Dim rng As Range
    Dim cel As Range
    Dim ws As Worksheet, wo As Worksheet
    Set ws = Sheets("Sheet1"): Set wo = Sheets("Sheet2")
    With ws
        LR = .Range("E" & .Rows.Count).End(xlUp).Row
        Set rng = .Range(.Cells(5, 5), .Cells(LR, 5))
        With rng
            For Each cel In rng
                If cel >= ws.Range("B19").Value And cel <= ws.Range("B20").Value Then
                    If InStr(ws.Range("A" & cel.Row).Text, "-") <> 0 Then
        ws.Range("A" & cel.Row).Resize(2, 1).EntireRow.Copy wo.Range("A" & R): R = R + 2
                    ws.Range("A" & cel.Row).Offset(0, 3).Resize(2, 1).Value = "*"
                    ElseIf InStr(ws.Range("A" & cel.Row).Text, ":") <> 0 Then
        ws.Range("A" & cel.Row).Resize(2, 1).EntireRow.Copy wo.Range("A" & R): R = R + 2
                    ws.Range("A" & cel.Row).Offset(-1, 3).Resize(2, 1).Value = "*"
                    End If
                End If
            Next cel
        End With
    End With
End Sub