[VBA] Λίστα ανά μήνα

[Flashgordon61]

Παρακαλώ την βοήθειά σας.
Στο επισυναπτόμενο αρχείο στο φύλλο εργασίας (Data) καταγράφω κάποιες δραστηριότητες ενός μηνός.
Στο δεύτερο φύλλο εργασίας (Update) μεταφέρω τα δεδομένα εκάστου μηνός με VBA .

Sub Items_per_Month()

Dim LastCell As Range
     
     Application.ScreenUpdating = False
     Application.Goto Reference:="Data"
    Selection.Copy
     Sheets("Update").Select
    With ActiveSheet
    Set LastCell = .Cells(.Rows.Count, "B").End(xlUp)
    If IsEmpty(LastCell) Then
    Else
      Set LastCell = LastCell.Offset(1, 0)
    End If
  End With
    
    LastCell.Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    LastCell(2).Select
End Sub

Με τον παραπάνω κώδικα τα δεδομένα εισάγονται στο πρώτο κενό κελί της στήλης Β (LastCell).
Το ζητούμενο είναι το κελί εισαγωγής των δεδομένων να προσδιορίζεται συγκρίνοντας το κελί (Α1) με την περιοχή κελιών (Month) και να επιλέγεται το πρώτο κελί δεξιά στην στήλη Β, καθώς επίσης αν υπάρχουν ήδη δεδομένα σ’ αυτό το κελί να βγαίνει προειδοποιητικό μήνυμα του τύπου Yes/No αν θέλουμε να γίνει η ενημέρωση η όχι.
Σας ευχαριστώ εκ των προτέρων
Γιώργος