Makro zum Kopieren und Einfügen von einem Blatt in die nächste offene Spalte in einem anderen Blatt

Question

Ich bin neu in VBA und weiß nicht, wie man programmiert. Ich habe ein Makro aufgenommen, um bestimmte Zellen von einem Blatt in Zellen eines anderen Blattes zu kopieren, aber es wird immer wieder in dieselbe Spalte eingefügt, und ich möchte, dass sich die Paste in der nächsten offenen Spalte befindet. Das ist alles was ich habe.

Sub Weekday() ' ' Wochentag Makro '

Range("J10:J13").Select 
Selection.Copy 
Sheets("Results").Select 
Range("C2").Select 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 

Answer 1

With Sheets("Results") 
    .Cells(2, .Columns.count).End(xlToLeft).Offset(, 1).Resize(4).Value = Range("J10:J13").Value 
End With 

Answer 2

Wenn Sie ändern:

Range("C2").Select 

von

c = Cells(2, 3).End(xlToRight).Column + 1 
Cells(2, c).Select 

c eine ganze Zahl. Es gibt Ihnen die Nummer der nächsten leeren Spalte in der Zeile 2.