On Oct 23, 10:41 am, Dave O wrote:
If I may suggest: record a macro that does what you need it to do,
then post the recorded macro. Indicate in the text of your email what
ranges you highlighted, and what ranges are likely to vary from use to
use.

Dave O
Eschew obfuscation

The following is the macro when the ranges are fixed:

Range("A119:A126").Select
Selection.Copy
Range("G141").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True
Range("A119:A126").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

As the ranges will shift, I am fine selecting the cells in the first
range ("A119:A126" in the example above) manually but once I select
the destination range ("G141" in the example above), I want to run the
macro so that the data is pasted and the source is deleted by a
Shift:=xlUp command.