@wawan setiawan ... bagaimana caranya copy otomatis dari sheet database ke sheet REKAP ...

Berikut contoh script yang dapat dicoba. Copy dan paste script berikut ke dalam modul standar yang sudah ada (atau tambahkan modul baru):

Option Explicit

Public Sub BuatRekapData()
    Dim lIdx As Long, lCount As Long, lRow As Long
    Dim sAddr As String, sValue As String
    
    lCount = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
    lRow = Sheet7.Range("A" & Rows.Count).End(xlUp).Row + 1
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    For lIdx = 2 To lCount
        Sheet7.Range("A" & lRow) = lRow - 1
        
        sAddr = Replace("T#, V#, W#", "#", lIdx)
        Sheet6.Range(sAddr).Copy
        Sheet7.Range("B" & lRow).PasteSpecial xlPasteValues
        
        sAddr = Replace("K#, X#", "#", lIdx)
        Sheet6.Range(sAddr).Copy
        Sheet7.Range("E" & lRow).PasteSpecial xlPasteValues
        
        Sheet7.Range("G" & lRow) = _
            Sheet6.Range("M" & lIdx) & " " & _
            Sheet6.Range("N" & lIdx) & " " & _
            Sheet6.Range("O" & lIdx)
        
        Sheet7.Range("H" & lRow) = _
            Sheet6.Range("P" & lIdx) & " " & _
            Sheet6.Range("Q" & lIdx) & " " & _
            Sheet6.Range("R" & lIdx)
        
        sAddr = Replace("I#, AB#", "#", lIdx)
        Sheet6.Range(sAddr).Copy
        Sheet7.Range("I" & lRow).PasteSpecial xlPasteValues
        
        sAddr = Replace("Y#, Z#, AA#", "#", lIdx)
        Sheet6.Range(sAddr).Copy
        Sheet7.Range("K" & lRow).PasteSpecial xlPasteValues
        
        sValue = Replace("SUM(@J#:@M#)", "@", "'" & Sheet7.Name & "'!")
        sValue = Replace(sValue, "#", lIdx)
        Sheet7.Range("N" & lRow) = Application.Evaluate(sValue)
        
        lRow = lRow + 1
    Next
    
    With Sheet7
        .Select
        .Range("A" & lRow).Select
    End With
    
    Application.CutCopyMode = False
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Assign tombol COPY pada sheet DATABASE ke prosedur Sub BuatRekapData tersebut. Simpan file dalam format Macro Enabled (xlsm atau xlsb).

Demikian.

@wawan setiawan ... Range AC2:AJ2 (pengikut1) saya ingin tercopy juga di row selanjutnya atau cel B3 di sheet REKAP kemudian range AK2:AR2 (pengikut2)juga sama tercopy di cel B4 yang terakhir Range AS2:AJ2(pengikut3) tercopy di cel B4 di Sheet REKAP ...

Terlampir contohnya.

@wawan setiawan ... kalo bagian script For lIdx = 2 To lCount, 2 artinya apa ya ...

Baris kedua sheet DATABASE.

Demikian.