Overføre fra et ark til et andet

Hej,

Jeg har en VBA der overfører fra et ark til et andet.
Den ser om der er en værdi i kolonne A på et ark, ws1.
Hvis der er det, så skal den kopiere rækken over i et andet ark, ws2

Det er en prisfil fra en leverandør, som har 10.000 varenumre i kolonne C og har vores varenumre i kolonne A, omkring 150.
Så der er jo en masse linjer der ikke skal med.

Den virker ikke helt, da den overfører hele arket og ikke kun de rækker hvor der er en værdi i kolonne A.

Er der nogen, der kan se hvad der er galt med koden?

Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim LR1 As Long, LR2 As Long, Lastrow As Long
   
   
    Set ws1 = Sheets("PajoBolte")
    Set ws2 = Sheets("Ark2")
    ws2.Cells.ClearContents ' Sletter alt i ws2
     
       
    LR1 = ws1.Range("C" & Rows.Count).End(xlUp).Row
       
    Application.ScreenUpdating = False
   
    LR2 = 1
   
    For i = 1 To LR1                                                 
     
       
        If ws1.Range("A" & i).Value > 0 Then                         
       
            ws2.Cells.NumberFormat = "@"                               
            ws2.Cells(LR2, "A").Value = ("")                            '
            ws2.Cells(LR2, "B").Value = ws1.Cells(i, "C").Value        ' Kreditors varenummer
            ws2.Cells(LR2, "C").Value = ws1.Cells(i, "A").Value        ' Værftes varenummer
            ws2.Cells(LR2, "D").Value = ("Stk")                       
            ws2.Cells(LR2, "E").Value = ws1.Cells(i, "G").Value       
            ws2.Cells(LR2, "F").Value = ws1.Cells(i, "I").Value       
            ws2.Cells(LR2, "G").Value = ("DKK")                       
            ws2.Cells(LR2, "H").Value = ws1.Cells(i, "I").Value       
            ws2.Cells(LR2, "I").Value = ("DKK")                       
            ws2.Cells(LR2, "J").Value = ws1.Cells(i, "I").Value       
            ws2.Cells(LR2, "K").Value = ("DKK")                       
            ws2.Cells(LR2, "L").Value = ws1.Cells(i, "I").Value       
            ws2.Cells(LR2, "M").Value = ("DKK")                       
            ws2.Cells(LR2, "N").Value = ws1.Cells(i, "I").Value       
            ws2.Cells(LR2, "O").Value = ("DKK")                       
           
            Worksheets("Ark2").Columns("A:cc").AutoFit
           
            LR2 = LR2 + 1
         
        End If
        Next i
       
        Worksheets("Ark2").Columns("E").NumberFormat = "0.00"
        Worksheets("Ark2").Columns("F").NumberFormat = "0.00"
        Worksheets("Ark2").Columns("H").NumberFormat = "0.00"
        Worksheets("Ark2").Columns("J").NumberFormat = "0.00"
        Worksheets("Ark2").Columns("L").NumberFormat = "0.00"
        Worksheets("Ark2").Columns("N").NumberFormat = "0.00"
       
       
Application.ScreenUpdating = True

MsgBox "Filen er klar!"

End Sub