Saya belum dapat memastikan, data paa sheet mana yang Anda maksud. Estimasi saya, sheet yang Anda maksud adalah sheet komputer_laptop. Sebagai rujukan batas garansi, saya asumsikan digunakan kolom O (REMAINING DAYS). Maka sederhananya dapat disusun script macro VBA seperti berikut:

Option Explicit

Sub DaftarGaransiBarang()
    Dim lR As Long, lX As Long, lY As Long
    Dim xData, xHasil
    
    With Sheet8
        lR = .Cells(Rows.Count, "C").End(xlUp).Row
        If lR > 18 Then
            lX = 1
            xData = .Range("C19:Q" & lR).Value
            ReDim xHasil(1 To UBound(xData, 1), 1 To UBound(xData, 2))
            For lY = 1 To UBound(xData, 1)
                If xData(lY, 13) > 0 Then
                    For lR = 1 To UBound(xData, 2)
                        xHasil(lX, lR) = xData(lY, lR)
                    Next
                    lX = lX + 1
                End If
            Next
            Sheet14.Range("A2:O" & lX).Value = xHasil
        End If
    End With
End Sub

Catatan: Sheet8 adalah sheet komputer_laptop, dan Sheet14 adalah sheet baru sebagai sheet tujuan hasil (ganti dengan sheet yang sudah ada jika diperlukan).

Sekiranya bukan demikian yang dimaksud, coba jelaskan data (tabel) mana yang akan dijadikan data sumbernya, dan kolom apa yang dijadikan patokan kuerinya.

Demikian, semoga sesuai.

Oh... gitu... Gak fokus sayanya... :D

Tapi sheet untuk sumber datanya khan memang sheet komputer_laptop, benar khan? Okelah kalau begitu, tinggal sesuaikan saja saja scriptnya. Silahkan diskusikan lagi jika ada kendala.