Не мога да разбера защо двата цикъла са ти от 22 до 57 и от 18 до 57, след като данните ти са в колоните от A1:B10 и B1:B10.
Разясни само това. Другата идея вече ми се изясни.
та ако данните са на колона 1 и 2 - в първите 10 реда, мога да предложа код:

Private Sub Worksheet_Activate()

 Dim I As Integer, K As Integer, List1 As String

 List1 = "Sheet1"                 'ime na purvi list

 For I = 1 To 10                 'iztriva stari danni ako ima

  Rows(1).Delete

 Next I

 K = 0

 For I = 1 To 10

  If Sheets(List1).Cells(I, 2).Value > 0 Then

    K = K + 1

    Cells(K, 1) = Sheets(List1).Cells(I, 1).Value

    Cells(K, 2) = Sheets(List1).Cells(I, 2).Value

  End If

 Next I

End Sub