[Spirosgr]

Καλησπέρα
Αντικατέστησε την Μακροεντολή 5 στο κόκκινο κουμπί με τον πιο κάτω κώδικα
Τα συγχωνευμένα κελιά που έχεις δεν αφαιρέθηκαν και ίσως δημιουργήσουν πρόβλημα.
Οι μακροεντολές που γίνονται με καταγραφή θα πρέπει να διορθώνονται
από όλα τα περιττά στοιχεία
Αν αλλάξεις τα ονόματα των φύλλων ΤΙΜΟΛΟΓΗΣΗ & ΕΣΟΔΑ ο κώδικας δεν θα δουλέψει
Ο κώδικας ισχύει μόνο για τα συγκεκριμένα φύλλα και εφ όσον στην Αιτιολογία
υπάρχει μόνο μια εισαγωγή

Sub transferData()
    Dim NextRow As Integer
    Set WS1 = Worksheets("ΤΙΜΟΛΟΓΗΣΗ")
    Set WS2 = Worksheets("ΕΣΟΔΑ")
    NextRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    WS2.Cells(NextRow, 1) = WS1.Cells(10, 8)
    WS2.Cells(NextRow, 2) = WS1.Cells(10, 2)
    WS2.Cells(NextRow, 3) = WS1.Cells(10, 5)
    WS2.Cells(NextRow, 4) = WS1.Cells(18, 3)
    WS2.Cells(NextRow, 5) = WS1.Cells(25, 3)
    WS2.Cells(NextRow, 6) = WS1.Cells(42, 8)
    WS2.Cells(NextRow, 7) = WS1.Cells(43, 8)
    WS2.Cells(NextRow, 8) = WS1.Cells(44, 8)
End Sub