[smasak]

Τα δεδομένα μου περιορίζονται σε συγκεκριμένο range.
Αν θέλω να παίρνει ένα συγκεκριμένο διάστημα πχ από w6:at34(AY η στήλη που θα παίρνω τα δεδομένα) και όχι όλες τις γραμμές πως μπορεί να διαμορφωθεί ο κώδικας;
Τώρα από ότι μπορώ να καταλάβω παίρνει όλες τις γραμμές από πχ B και έπειτα
Dim I As Long, R As Long, C As Byte
R = Range("B" & Rows.Count).End(xlUp).Row
Range("P4:P" & R).ClearContents

Application.ScreenUpdating = False
For I = 4 To R
For C = 1 To 7
Range("R" & C & ":S" & C).Value = Range(Cells(I, 2 * C), Cells(I, 2 * C + 1)).Value
Next

[R1:S7].Sort Key1:=[S1], Order1:=xlDescending, Header:=xlNo
Range("P" & I).Value = WorksheetFunction.Sum([R1:R5])
[R1:S7].ClearContents
Next
Application.ScreenUpdating = True