Creating a macro to paste value and transpose

for quicker an better result on your question read this treat.

http://www.excelforum.com/the-water-...-question.html

How can you test an given code if you don't have a file?

Hi, Groovicles,

you´re very vague on telling things about what should be done leaving it to us to figure out:

The copied cells may or may not be recorded on the same workbook.

Basicly:

Sub Take1()
Dim rngToStart As Range
Dim rngToCopy As Range
On Error Resume Next
Set rngToStart = Application.InputBox(prompt:="Choose the starting cell", Type:=8)
Set rngToCopy = Application.InputBox(prompt:="Choose the area to copy", Type:=8)
On Error GoTo 0
If Not rngToCopy Is Nothing Then
  If Not rngToStart Is Nothing Then
    rngToCopy.Copy
    rngToStart.PasteSpecial Paste:=xlPasteValues, _
        Operation:=xlNone, _
        SkipBlanks:=False, _
        Transpose:=True
  End If
End If
Application.CutCopyMode = False
Set rngToCopy = Nothing
Set rngToStart = Nothing
End Sub

Ciao,
Holger