FILTER KELOMPOK DATA USING VBA

Sub Data_fillter()

 ActiveSheet.Range("A6:F200").Value = ""

Sheets("data").Range("A7:F200").Copy

ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

Range("A1").Select

Dim row As Long

LastRow = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 4).End(xlUp).row

row = 6

For row = LastRow To row Step -1

If Cells(row, 6) <> Range("F3") Then

Cells(row, 6).EntireRow.Delete

End If

Next row

End Sub

 UNDUH SAMPEL FILE >>>>>   Filter Kelompok Data