Opgelost Excel VBA loop naar volgende kolom

[Kirana2014]

Help me alsjeblieft met VBA elke keer dat ik gegevens kopieer in een kolom een nieuwe vba nodig heb
kan ik "Next range" / Loop als ja hoe

Sub Copy()

Dim LastRow
   Dim sht As Worksheet
  
   Set sht = ThisWorkbook.Worksheets("sheet1")
  
   '<<<<kopier kolom A>>>
  
   LastRow = sht.Range("A2").CurrentRegion.Rows.Count
   sht.Range("A2:A" & LastRow).Copy
   Range("G2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
   '<<<<kopier kolom B>>>
  
   LastRow = sht.Range("B2").CurrentRegion.Rows.Count
   sht.Range("B2:B" & LastRow).Copy
   Range("I2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
   '<<<<kopier kolom C>>>
  
   LastRow = sht.Range("C2").CurrentRegion.Rows.Count
   sht.Range("C2:C" & LastRow).Copy
   Range("K2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
  
  
   End Sub

 

[snb]

Gebruik nooit 'select' in VBA.

Wat is de lol alle gegevens 2 keer in een werkblad te zetten?
Wat is de zin een aaneengesloten gebied naar 3, niet-aaneeengesloten kolommen te splitsen ?

Als ik zeg dat ik je vraag niet snap en je leest jouw vraag nogeens door, begrijp je dat dan ?