Kolom kopieeren naar volgende lege kolom + Timestamp

[samallo1]

Hallo,

Ik zit met het volgende,

Ik wil graag de gevens van Kolom A2:A18 kopieeren naar F2:F18 .

Maar de gegevens van Kolom A veranderen steeds, de nieuwe gegevens moeten dan een kolom verder komen enz.. met als kolomnaam de datum van die dag

wie kan mij daarbij helpen

zie ook de bijlage

alvast er bedankt!

 

[JEC.]

Dit is een manier

Sub j()
Range("D2").End(xlToRight).Offset(, 1).Resize(17) = Range("A2:A18").Value
Range("D2").End(xlToRight).Offset(-1) = Date
Range("A2:A18").ClearContents
End Sub

 

[VenA]

iets dynamischer

Sub VenA()
  ar = Cells(1).CurrentRegion
  ar(1, 1) = Date
  Cells(1, Application.Max(4, Cells(1, Columns.Count).End(xlToLeft).Column + 1)).Resize(UBound(ar)) = ar
End Sub