Sub LoadData()
Dim rng As Range
Sheets("Sheet1").Range("A4:D14").Clear
Set rng = Sheet2.Cells(1, 1).CurrentRegion
With rng
.AutoFilter 4, Sheets("Sheet1").Buttons(Application.Caller).Caption
.SpecialCells(12).Copy Sheets("Sheet1").Range("A4")
.AutoFilter
End With
End Sub