Help Needed Please

[Steveo59]

The following code works fine but i would like to make an adjustment. This may be simple to some but i can not grasp how. Data is in F5:F50. When F5:F50 is refreshed this data is placed in column Y. However i would the next refresh of F5:F50 to be placed in column Z then AA and so on.

I hope this makes sense and any help would be much appreciated. Thank you.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 
   If Target.Columns.Count <> 16 Then Exit Sub
   
   
Range("F5:F50").Copy
        Range("Y5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        
         Application.EnableEvents = False
        Range("F5:F50").Copy
        Range("Y5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.EnableEvents = True
End Sub

 

[Smitty]

Maybe something like this:

<font face=Calibri>    Application.EnableEvents = <SPAN style="color:#00007F">False</SPAN><br>        Range("F5:F50").Copy<br>        <SPAN style="color:#00007F">If</SPAN> LenB(Range("Y5")) = 0 <SPAN style="color:#00007F">Then</SPAN><br>            Range("Y5").PasteSpecial Paste:=xlPasteValues<br>        <SPAN style="color:#00007F">Else</SPAN><br>            Cells(5, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial Paste:=xlPasteValues<br>        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br>    Application.EnableEvents = <SPAN style="color:#00007F">True</SPAN></FONT>

HTH,