[caudillo]

Καλημέρα.
Συνεχίζοντας την προσπάθεια να καταφέρουμε να κάνουμε τον κώδικα να δουλέψει, τον τροποποίησα ως εξής:

Sub copyandpaste()

Dim sws As Worksheet
Dim dws As Worksheet

Set sws = Sheets("Αρχείο σέρβις οχήματος")
Set dws = Sheets("Αποθήκευση")


Sheets("Αρχείο σέρβις οχήματος").Select
Range("C10:C11").Select
Selection.Copy
dws.Select
Range("B6:B7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
Sheets("Αρχείο σέρβις οχήματος").Select
Range("H20:H40").Select
Selection.Copy
dws.Select
Range("B9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
dws.Activate

End Sub

Από ότι καταλαβαίνω, νομίζω ότι πρέπει να τροποποιηθούν οι γραμμές Range("B6:B7").Select και Range("B9").Select ώστε σε κάθε νέα αντιγραφή να γίνεται επικόλληση των νέων δεδομένων στην επόμενη άδεια στήλη. Δηλαδή C6:C7 και C9, D6:D7 και D9 και ούτω καθεξής.
Η ερώτηση -που εγώ δεν μπορώ να απαντήσω- είναι πως τροποποιούμε αυτές τις δυο γραμμές;
Οποιαδήποτε βοήθεια θα είναι ανεκτίμητη.
Ευχαριστώ.