[VBA] Autofill σε μακροεντολή

[Βασίλης Καραχάλιος]

καλησπέρα σε όλους,

Θα ήθελα την βοήθεια σας
Sheet1
Στήλη Α : κωδικοί
Στήλη Β : ποσά
Sheet2 :
Στήλη Α : κωδικοί απο Α2 έως Α100
Στήλη Β : αθροισμα ποσών με συναρτηση sumif στο κελι Β2 διαβάζει αθροίσματα απο το sheet1
ολα αυτά καταγράφονται σε μακροεντολή μετο Record macro

θα ήθελα την βοηθεια σας στο εξής θέμα
ξεκινώ να κατάγράφω νέα μακροεντλή πηγαίνω στο κελι β2 στην γωνία κάτω δεξιά ώστε να κανει autofill την στήλη b με την συνάρτηση που ειναι στο κελί β2 μέχρι και την γραμμή εκατό μόλις το κάνω πατάω στοπ μακρο.
την επόμενη φορά ομως που οι κωδικοί έιναι εκατόν 110 και τρέχω την συγκεκριμενη μακρο μου φερνει την συναρτηση sumif μέχρι και την 100 γραμμή και δεν κανει autofil και στις 110 γραμμές όσοι ειναι κια οι κωδικοί.

Sub Macro2()
'
' Macro2 Macro
'

'
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B100")
Range("B2:B100").Select
End Sub


Κάποιος που μπορει να με βοηθήσει;

[kapetang]

Καλημέρα

Βασίλη δοκίμασε τον παρακάτω κώδικα:

Sub Macro2()
    Dim rng As Range
    Set rng = Range("B2:B" & Cells(Cells.Rows.Count, 1).End(xlUp).Row)
    Range("b2").AutoFill Destination:=rng
    rng.Select 'Μπορεί να διαγραφεί αν δε χρειάζεται η επιλογή
End Sub

Φιλικά/Γιώργος

[Βασίλης Καραχάλιος]

Ευχαριστώ πολύ για την πολύ σημαντική βοήθεια :)