Office: (Office 2010) Excel VBA

Hallo,

ich möchte mittels VBA eine Tabelle erstellen der von der ersten Tabelle nur 3 Werte in das andere Tabellenblatt kopiert.
1. Wenn die Person öfters dran kommt das er alle erst von den Namen untereinander die Projekte schreibt als dann eine Leere Zeile einfügt und den nächsten Namen einfügt. Darüber hinaus soll er den Datumsbereich z.b. von 15.03.2020 bis 12.12.2020 kontrollieren und zu den passenden Monaten dann ein 'x' setzen. Beispiel für das Kalenderjahr 2020 ist März ein 'x' April ein 'x' … bis Dezember ein 'x'. Diese sind jeweils Januar beginnt bei der Zelle E und Dezember bis Zelle P und für den passenden Monat soll dann das 'x' kommen.


Mein Code bis jetzt wie folgt aus:


Sub Mitarbeiter()

Dim Fachplaner As String
Dim Projekte As String
Dim TVP As String
Dim Zelle As Range


Worksheets("Tabelle2").Select
Fachplaner = Range("K2")
Projekte = Range("E2")
TVP = Range("H2")



Worksheets("Auslastung").Select
Worksheets("Auslastung").Range("A5").Select
If Worksheets("Auslastung").Range("A5").Offset(1, 0) <> "" Then
Worksheets("Auslastung").Range("A5").End(xlDown).S elect
ActiveCell.EntireRow.Copy
Cells(ActiveCell.Row + 1, 1).Insert Shift:=xlDown
For Each Zelle In Range(Cells(ActiveCell.Row + 1, 1), Cells(ActiveCell.Row + 1, 255).End(xlToLeft))
If Not Zelle.HasFormula Then
Zelle.ClearContents
End If
Next Zelle
Cells(ActiveCell.Row + 1, 1).Select


End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Fachplaner
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Projekte
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TVP




End Sub


Leider finde ich nicht die passenden Sachen dazu kann mir einer dabei helfen.

Danke im Voraus.



LG Harun