Need VBA Code Amended to Paste in the Next Available Column

**YukonSoDank** · 04-03-2019, 10:13 AM

Hello,

With the code shown below I am able to cut and past data via macro. It transposes the data and works perfectly, however, I would like this code to find the next available column in the "ActiveSheet" and paste, effectively appending to the existing data. In other words, if what is shown below pastes into column "L", I'd like the next iteration to find that column "M" is empty and paste the data there.

Thanks,

Sub Import_Data()
    Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("B2:M2").Copy
   ActiveSheet.Range("L7:L18").PasteSpecial Transpose:=True

End Sub

**JLGWhiz** · 04-03-2019, 10:21 AM

This should work

Sub Import_Data()
    Workbooks("Book1.xlsx").Worksheets("Sheet1").Range("B2:M2").Copy
   ActiveSheet.Cells(7, Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial Transpose:=True
End Sub

**YukonSoDank** · 04-03-2019, 10:28 AM

Awesome, works like a charm, many thanks!

**JLGWhiz** · 04-03-2019, 01:47 PM

You're welcome,
regards, JLG

**davesexcel** · 04-03-2019, 10:24 AM

Cech it out.

Sub Button1_Click()

    Worksheets("Sheet1").Range("B2:M2").Copy
    With ActiveSheet
        .Cells(7, .Columns.Count).End(xlToLeft).Offset(, 1).PasteSpecial Transpose:=True
    End With
End Sub

Need VBA Code Amended to Paste in the Next Available Column

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Need VBA Code Amended to Paste in the Next Available Column

Re: Need VBA Code Amended to Paste in the Next Available Column

Re: Need VBA Code Amended to Paste in the Next Available Column

Re: Need VBA Code Amended to Paste in the Next Available Column

Re: Need VBA Code Amended to Paste in the Next Available Column

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] VB Code to copy paste data from column to another column based on content of cell

[SOLVED] VBA Code to lookup value in column then paste to right

[SOLVED] Recently amended VBA code causing saving error

If less than zero, amended formula

[SOLVED] Amended VBA Code to Input information into form for viewing

Assistance with VBA CODE to find column on worksheet 1,copy contents of that column paste

VBA Code to copy data from last filled column and paste to the next available column.

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions