[gr8styl]

Καλημέρα φίλε Μάνο.
αντέγραψε τον παρακάτω κώδικα σε ένα Module της VBA και φτιάξε δυο κουμπιά.
Το πρώτο θα καλεί την copy_to_dst() για αντιγραφή και επικόλληση τιμών, ενώ το δεύτερο θα καλεί την clear_src() για καθάρισμα των τιμών μόνον.

Πες μας αν έγινε.

Φιλικά
Θανάσης
ΥΓ. Προσοχή γιατί οι ημερομηνίες είναι τύποι, δηλαδή θα πρέπει να κάνεις αντιγραφή και επικόλληση τιμών ή να καταχωρείς την ημερομηνία μέσω VBA αν θέλεις να μην αλλάζουν κάθε φορά που υπολογίζεται το φύλλο.

Option Explicit

Sub copy_to_dst()
Dim Dst
    Dst = WorksheetFunction.Max(Sheets("ΠΩΛΗΣΕΙΣ").Range("A:A")) + 2
    Range("Πίνακας6").Copy
    Sheets("ΠΩΛΗΣΕΙΣ").Range("C" & Dst).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    Dst = WorksheetFunction.Max(Sheets("ΕΠΙΣΚΕΨΕΙΣ").Range("A:A")) + 2
    Range("Πίνακας4").Copy
    Sheets("ΕΠΙΣΚΕΨΕΙΣ").Range("C" & Dst).PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Sub clear_src()
    Range("Πίνακας6").SpecialCells(xlCellTypeConstants, 23).ClearContents
    Range("Πίνακας4").SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub