Hi
Try this
Code:
Dim r As Range
'Filter to Line Rate, copy and paste
With ActiveWorkbook.Worksheets("Rates Matrix").Range("$A$1:$F$5000")
.AutoFilter Field:=1, Criteria1:=Destination
.AutoFilter Field:=3, Criteria1:=Carrier
.AutoFilter Field:=4, Criteria1:=Size
On Error Resume Next
Set r = .Cells(1).Offset(1, 6).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
End With
If Not r Is Nothing Then
r.Copy
CarrierResult.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("G7").Select
Else
MsgBox "No records found for the selected criteria", vbInformation
End If
Bookmarks