Visual Basic Selecting and copying non-consecutive cells

[Fran C]

Hello,

I hope someone can help

I am completely new to <ACRONYM title=vBulletin>VB</ACRONYM> so I apologies if this seems like a ridiculous question.

All I am trying to do is select the last used cell in a column and then copy some non-consecutive cells within that same row. The cells I need are from columns A,E,F,M and P. The purpose of this is to transpose on to another worksheet, I have this code and need no assistance with this it is just selecting and copying the non consecutive cells that I am having the issue with.

This is my code which at the moment only finds, selects and copies the last cell in column A.

Range("A6").Select
Cells(Cells.Rows.Count, "A").End(xlUp).Select
Selection.Copy
Sheets("Info Transfer").Select
Range("D4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D4").Select

I would be really grateful for some help on this.

Thank You

<!-- / message -->

 

[Domenic]

Try...

[font=Verdana]    [color=darkblue]Dim[/color] LastRow [color=darkblue]As[/color] [color=darkblue]Long[/color]

    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("A" & LastRow & ",E" & LastRow & ",F" & LastRow & ",M" & LastRow & ",P" & LastRow).Copy
    
    Sheets("Info Transfer").Range("D4").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=[color=darkblue]True[/color]
    [/font]

 

[Fran C]

Thank you so much Domenic, that has made my life much easier

 

[Domenic]

You're very welcome! Thanks for the feedback!