Copy and Paste Question

[gvf]

Hello all.

I think this is a simple question.
I want to copy an especific column and paste its values, tranposed, in any choosen cell.
The code below, recorded with excel's macro recorder, doesn't do what I want, because I want to use the cell that the mouse is currently on, prior to the execution of the macro - it is, paste transposed in that cell.
I found some insights using inputbox, but I don't want a window poping for such a simple task. Can anyone help?

Thank you in advance.

Sub PasteT()
'
' PasteT Macro
'

'
    ActiveCell.Range("A1:A6").Select
    Selection.Copy
    ActiveCell.Offset(0, 8).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End Sub

 

[texasalynn]

does this work for you?

Sub PasteT()
'
' PasteT Macro
'
Application.DisplayAlerts = False
'
    ActiveCell.Range("A1:A6").Copy
    ActiveCell.Offset(0, 8).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
Application.DisplayAlerts = True
End Sub

 

[gvf]

Ty for the reply.

But no, it isn't working as intended yet. I tried putting the "$" symbol in the range, but it didn't copy the right range. I think the problem is with the offset property, because I don't always want it to be 8 columns away, instead I want it anywhere the mouse is.

I don't have knowledge in VBA, but I think the macro should be like this:
- define/save the cell that is currently active, in the moment that we call the macro
- copy the range A1:A6
- paste transpose the range in the former active cell

Ty.

 

[texasalynn]

ok so if I understand then change

ActiveCell.Range("A1:A6").Copy
to this

Range("A1:A6").Copy
ActiveCell.Select

 

[gvf]

YES that's it!
I knew that it was simple
Tyvm!