Visual Basic - pomoč pri kodi (Excel)

Prvo naj omenim da nisem programer. Tako da kakršna koli pomoč bo dobrodošla.

Imam en .xls file. V njem bo na prvi strani (Sheet1 -> "DELOVNI NALOG") baza podatkov, kdo in kaj se je delalo, etc, pod določenimi projekti...
Sledili bodo delovni listi z številkami projektov (360, 374,...).

Rad bi, da macro kopira podatke iz prvega delovnega lista ter jih razporedi v svoje projekte. Prvi delovni list bo posodobljen dnevno in rad bi da macro posodobi delovne liste s projekti.

Koda je zaenkrat taka (pomoč iz Excelforum):

Sub koli99()
Dim i As Long
Dim x As String
Dim ws As Worksheet
Dim ws2 As Worksheet
Set ws = ActiveSheet
For Each ws2 In ActiveWorkbook.Worksheets
If IsNumeric(ws2.Name) Then
ws2.Activate
Rows("5:100").ClearContents
End If
Next ws2
ws.Activate
For i = 5 To Range("D" & Rows.count).End(3)(1).Row
x = Range("D" & i).Value
Range(Cells(i, "A"), Cells(i, "K")).Copy Sheets(x).Range("A" & Sheets(x).Range("D" & Rows.count).End(3)(2).Row)
ws.Activate
Next i
End Sub

Imam pa par problemov:
1.) Kljub temu da se prvi delovni list imenuje (DELOVNI NALOG) macro pobriše podatke tudi iz tega lista.

2.) Če delovnega lista s projektom ni ampak je vpisan na prvi strani (recimo projekt 360 ima svoj delovni čist 360, 374 ne), se koda ustavi. Rad bi, da program preskoči vrstico če projekt nima svojega delovnega lista.

Za kakršnokoli pomoč se zahvaljujem!

Lp,

jure

Super hvala!