Hi Everybody!

I'm trying to move (in order by rows) the data from the specified columns in "Dump" to specified columns in "Temp." I am sure my problem is with defining the ranges in "Dump." Placing range "B:B" with range B1, (etc.) copies the first row of data, but I need all of the non-empty rows to move. After that, the "Dump" Sheet should be deleted.

Can you help?

Here is my code:

Sheets("Temp").Activate
Sheets("Temp").Range("A" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("B:B").Value
Sheets("Temp").Range("B" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("D:D").Value
Sheets("Temp").Range("C" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("E:E").Value
Sheets("Temp").Range("D" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("G:G").Value
Sheets("Temp").Range("E" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("H:H").Value
Sheets("Temp").Range("F" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("I:I").Value
Sheets("Temp").Range("G" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("J:J").Value
Sheets("Temp").Range("H" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("K:K").Value
Sheets("Temp").Range("I" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("L:L").Value
Sheets("Temp").Range("J" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("S:S").Value
Sheets("Temp").Range("K" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("M:M").Value
Sheets("Temp").Range("L" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("P:P").Value
Sheets("Temp").Range("M" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("Q:Q").Value
Sheets("Temp").Range("N" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("R:R").Value
Sheets("Temp").Range("O" & Rows.Count).End(3)(2).Value = Sheets("Dump").Range("O:O").Value