VBA Code Takes too long to Run

Hello Friends,
I am Using this code to filter and copy date to one sheet to other sheet based on combobox Value in Excel, But it takes too long to run. I have Some conditional formatting in sheet.
Please help to Optimize the code performance.

sCust = Cmbsearch.Value
    Set rRng = Worksheets("Ledger").Range("A8:N2000")
    rRng.ClearContents
    nCRow = 7
    nIRow = 7
        Do While Len(Trim(Worksheets("DATA").Cells(nIRow, 1).Value)) > 0
        If Worksheets("DATA").Cells(nIRow, 1).Value = sCust Then
            nCRow = nCRow + 1
            'Worksheets("Ledger").Cells(nCRow, 1).Value = Worksheets("DATA").Cells(nIRow, 1).Value
            Worksheets("Ledger").Cells(nCRow, 2).Value = Worksheets("DATA").Cells(nIRow, 2).Value
            Worksheets("Ledger").Cells(nCRow, 3).Value = Worksheets("DATA").Cells(nIRow, 3).Value
            Worksheets("Ledger").Cells(nCRow, 4).Value = Worksheets("DATA").Cells(nIRow, 4).Value
            Worksheets("Ledger").Cells(nCRow, 5).Value = Worksheets("DATA").Cells(nIRow, 5).Value
            Worksheets("Ledger").Cells(nCRow, 6).Value = Worksheets("DATA").Cells(nIRow, 6).Value
            Worksheets("Ledger").Cells(nCRow, 7).Value = Worksheets("DATA").Cells(nIRow, 7).Value
            Worksheets("Ledger").Cells(nCRow, 8).Value = Worksheets("DATA").Cells(nIRow, 8).Value
            Worksheets("Ledger").Cells(nCRow, 9).Value = Worksheets("DATA").Cells(nIRow, 9).Value
            Worksheets("Ledger").Cells(nCRow, 10).Value = Worksheets("DATA").Cells(nIRow, 69).Value
            Worksheets("Ledger").Cells(nCRow, 11).Value = Worksheets("DATA").Cells(nIRow, 68).Value
            Worksheets("Ledger").Cells(nCRow, 12).Value = Worksheets("DATA").Cells(nIRow, 74).Value
            Worksheets("Ledger").Cells(nCRow, 13).Value = Worksheets("DATA").Cells(nIRow, 67).Value
            Worksheets("Ledger").Cells(nCRow, 14).Value = Worksheets("DATA").Cells(nIRow, 75).Value

        End If
        nIRow = nIRow + 1
        Loop
End If