Historie

[yamaha1]

Hallo Mensen

Wie kan me helpen met mijn probleem.
Wil namelijk via een macro blad 1 opslaan naar historie.
Maar daar heb ik al iets staan, is het mogelijk om toch nog iets op te slaan. zonder dat hij de historie overschrijft.
is er een formule dat hij een lege regel pakt.
ben nog niet zo goed in macro's maken.

 

[HSV]

Sub hsv()
Dim Rng As Range
Set Rng = Sheets("Blad1").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Resize(, 8)
 Sheets("Historie").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(Rng.Rows.Count, 8) = Rng.Value
End Sub

 

[yamaha1]

Super en thanks