COPY SPESIAL VIA BUTTON VBA

On Error GoTo x
Dim a As Range, b As Range

Application.DisplayAlerts = False
Set a = Selection
Set b = Application.InputBox("rangenya", Type:=8)
a.Copy
b.PasteSpecial xlPasteValues
Application.CutCopyMode = False
x:
Exit Sub




HASILNYA