De inhoud van de laatste cel in een rij, kopieren en verplaatsen

[pvisscher]

Goedemorgen

Helaas ben ik nog niet zo bekend met VBA, maar ik wil graag het volgende script maken:

De inhoud van de laatste cel in een rij, kopieren en verplaatsen naar een nieuwe naast gelegen en of voor gelegen kolom.
Het probleem is dat niet elke laatse cel, in de zelfde kolom eindigd.
Het werkblad wordt namelijk gevuld met een uitdraai van gezocht file's welk in diverse directorie's staan op mijn pc.

F:\E-books\C & C++ prog.\E-Books\C\XXXX.pdf
F:\E-books\C & C++ prog.\HTML\XXXX.PDF
F:\E-books\C & C++ prog.\XXXX.pdf.

Ik hoop dat iemand mij wil helpen,

Groetjes Peter

 

[Warme bakkertje]

Voor rij 1

Range("XFD1").end(xlToLeft).copy

Je kan dan de 1 variabel maken met een loop om een aantal rijen ineens te verwerken.

 

[HSV]

De loop.

For i = 1 To activesheet.usedrange.rows.count
   With Cells(i, Columns.Count).End(xlToLeft)
 .Offset(, 1) = .Value
    End With
  Next i

 

[pvisscher]

Goedemorgen.

Hartelijk dank voor jullie reactie's, de code van "warme bakkertje" werkt perfect.
De loop kwam ik zelf nog niet helmaal uit, "HSV" bedankt voor de loop zover was ik nog niet gekomen.
Deze ga ik vandag proberen nogmaals bedankt.

Groetjes Peter