How can I append data to the end of a column with a macro

[pgfindlay]

Hi,

I have a spreadsheet with booking data that we are analysing for missed opportunities. We've got most of the analytics done but it requires a lot of data movement to get it to work that I'm trying to automate.

I've managed to do most of it with Recorded Macro's (I know they aren't the neatest way of doing things but I'm not a programmer so it's the best I can do)

What I can't work out is how to copy data from one column and append it to another. Can anyone help please?

Regards,

Paul

[patel45]

Please Login or Register  to view this content.

[pgfindlay]

How do I specify which column to copy and where to paste?

[patel45]

Please Login or Register  to view this content.

in this code A is column to copy, B is column to paste

[pgfindlay]

Hi, Thank you for your quick response. Works perfectly.

Regards,

Paul

[pgfindlay]

Hi Patel45,

I've used the following code adapted from your post and it works perfectly thanks.
HomeSite = Cells(Rows.Count, "F").End(xlUp).Row
HomeSiteDest = Cells(Rows.Count, "U").End(xlUp).Row + 1
Range("F2:F" & HomeSite).Copy Range("U" & HomeSiteDest)

You may be able to help me with my next part. Is there a way of writing "-1" in the column next to where I've pasted these values (Column W)?

[patel45]

Please Login or Register  to view this content.

[pgfindlay]

Thanks Again Patel45. I'm almost there. I need to repeat the process to copy another column and then have +1 in the same Column as the -1..

I'm running this as my code;
Sub CombineData()

HomeSite = Cells(Rows.Count, "F").End(xlUp).Row
HomeSiteDest = Cells(Rows.Count, "U").End(xlUp).Row + 1
Range("F2:F" & HomeSite).Copy Range("U" & HomeSiteDest)


SendDate = Cells(Rows.Count, "G").End(xlUp).Row
SendDateDest = Cells(Rows.Count, "V").End(xlUp).Row + 1
Range("G2:G" & SendDate).Copy Range("V" & SendDateDest)

Range("W2:W" & HomeSite).Value = "-1"

ReturnDate = Cells(Rows.Count, "H").End(xlUp).Row
ReturnDateDest = Cells(Rows.Count, "V").End(xlUp).Row + 1
Range("H2:H" & ReturnDate).Copy Range("V" & ReturnDateDest)


HomeSite = Cells(Rows.Count, "F").End(xlUp).Row
HomeSiteDest = Cells(Rows.Count, "U").End(xlUp).Row + 1
Range("F2:F" & HomeSite).Copy Range("U" & HomeSiteDest)


Range("W2:W" & ReturnDate).Value = -1

The problem I'm having is that the second pass overwrites the first instead of appending to the end.

Regards,

Paul

[patel45]

Attach please a sample file for testing

[pgfindlay]

Master template#3 (2).zip

Thanks for your help in on this Patel. Good people are hard to find.

Regards,

Paul

[patel45]

Please Login or Register  to view this content.

[pgfindlay]

Works perfectly. Thank you so much