Pomoc proste zadanie Vba

Otrzymałem zadanie z którym męcze sie niemiłosiernie , prosiłbym bardzo o pomoc bo czas na oddanie zadania juz mi się kończy a spędziłem przy
tym bardzo dużo czasu.
Tablica nazywa sie tablica poniewaz przy nazwie tab wyskakuje błąd

Napisz program, który usunie z 20 elemntowej tablicy o nazwie "tab" wszystkie liczby <0 przesuwając pozostałe liczby w lewo.

Sub pietnaste()
Dim tablica(1 To 20) As Integer
Dim i As Integer
Dim j As Integer
Dim x As Integer
For i = 1 To 20                          
  tablica(i) = Worksheets("arkusz1").Range("A1").Offset(i - 1)
  Next i
  i = 1
  j = 20
  Do While i <= j
  If tablica(i) < 0 Then
  j = j - 1
  For x = i To j
  tablica(x) = tablica(x + 1)
  Next x
  i = i - 1
  End If
  i = i + 1
  Loop
  For i = 1 To j
  Worksheets("arkusz1").Range("B1").Offset(i - 1) = tablica(i)
  Next i
  
End Sub

Skoro i tak się posługujesz arkuszem, to możesz na nim usunąć te liczby i je zaczytać, polecam też poczytać o Redim.
Jak dalej będziesz miał problemy, to za 15zł Ci to zrobię, akurat będzie na piwo