It stops at numrows line
Please help
Dim ws As Worksheet
Dim rgQuotes As Range
Dim rgPasteTo As Range
Dim rgTable As Range
Dim rgBid As Range
Dim nRows As Integer
' Initialize
'
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
' Set objects
Set ws = ActiveWorkbook.Sheets("Filter")
Set rgPasteTo = ws.Range("PasteTo")
' Clean up
ActiveWorkbook.Sheets("Dump").Activate
Set rgQuotes = ActiveSheet.Range("FilteredQuotes")
If IsEmpty(rgQuotes) Then ' Error handling
Range(rgQuotes, rgQuotes.Offset(1, 0)).Value = "Quotes will come here..."
End If
numRows = Range(rgQuotes, rgQuotes.End(xlDown)).Rows.Count
Set rgTable = rgQuotes.Resize(numRows, 6)
rgTable.ClearContents
Set rgTable = Nothing
Please help
Dim ws As Worksheet
Dim rgQuotes As Range
Dim rgPasteTo As Range
Dim rgTable As Range
Dim rgBid As Range
Dim nRows As Integer
' Initialize
'
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
' Set objects
Set ws = ActiveWorkbook.Sheets("Filter")
Set rgPasteTo = ws.Range("PasteTo")
' Clean up
ActiveWorkbook.Sheets("Dump").Activate
Set rgQuotes = ActiveSheet.Range("FilteredQuotes")
If IsEmpty(rgQuotes) Then ' Error handling
Range(rgQuotes, rgQuotes.Offset(1, 0)).Value = "Quotes will come here..."
End If
numRows = Range(rgQuotes, rgQuotes.End(xlDown)).Rows.Count
Set rgTable = rgQuotes.Resize(numRows, 6)
rgTable.ClearContents
Set rgTable = Nothing