オフセット付きVBAマクロ

Question

私は毎日職場で使うシート用の簡単なマクロを作成しようとしています。

基本的には約です：

シート1のセルA2：A11は、これらの値は、次の空き列に毎日オフセット付きのシート2に貼り付けるコピーする必要があり、その中に値を持っています。

これまでのところ、1つのオフセットを含むコピー貼り付けがありますが、次の空き列のオフセットがどのように発生するかはわかりません。私が正しく理解していれば

Dim rng As Range 
Dim ws As Worksheet 

Range("A2:A11").Select 
Selection.Copy 
Sheets("Sheet2").Select 
If rng Is Nothing Then 
    'if nothing found - search for last non empty column 
    Set rng = ws.Range("2:2").Find(What:="*", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) 
    If rng Is Nothing Then 
     Set rng = rng.Offset(, 1) 
     ActiveSheet.Paste 
    End If 

Answer 1

、ちょうどあなたが次の空き列の右に、その後1以上のすべての道を行く、この代わりに、すべてのあなたの現在のコード

Range("A2:A11").Copy Sheets("Sheet2").Cells(2, Columns.Count).End(xlToLeft).Offset(, 1) 

Answer 2

Set rng = rng.End(xlToRight).Offset(0, 1)
を使用してみてください。