Yth. Pakar Excel Mohon bantuannya ,
Saya dapat barisan code macro berikut (dari milis ini juga) : Sub Gabung() Dim rngGabung As Range Dim sh As Worksheet Dim rngsh As Range Dim brs As Long Set rngGabung = Sheets("Gabung").Range("A2").CurrentRegion Set rngGabung = rngGabung.Offset(1, 0).Resize(rngGabung.Rows.Count - 1) Application.ScreenUpdating = False rngGabung.ClearContents For Each sh In Worksheets If sh.Name <> "Gabung" Then If sh.Name <> "nim_nama" Then If sh.Name <> "a2" Then If sh.Name <> "pivot_table" Then Set rngsh = sh.Range("A2").CurrentRegion Set rngsh = rngsh.Offset(1, 0).Resize(rngsh.Rows.Count - 1) brs = WorksheetFunction.CountA(Sheets("Gabung").Columns("A:A")) rngsh.Copy Sheets("Gabung").Range("A" & brs + 1) End If End If End If End If Next sh Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Barisan code macro tersebut jika diterapkan hasilnya "copy paste" .. keinginan saya bagaimana biar hasilnya "copy VALUE" saja, mohon bantuannya merevisi barisan code macro tersebut .. Terima kasih ari