Can I Paste One Line of Text into Multiple Cells?

[Logit]

.
Yes.

But you need to replace the PROCESSTEMP macro with this :

Sub ProcessTemp()


ActiveSheet.Pictures.Delete


With ActiveSheet


    .Columns("A:A").Delete
    .Columns("C:D").Delete
    ''Exit Sub
    .Range("A3").Cut
    .Range("B2").Select
    ActiveSheet.Paste
    .Range("A4").Cut
    .Range("C2").Select
    ActiveSheet.Paste
    .Range("A5").Cut
    .Range("D2").Select
    ActiveSheet.Paste
    .Range("A6").Cut
    .Range("E2").Select
    ActiveSheet.Paste
    .Range("A2:E2").Hyperlinks.Delete
End With
    UpdateSheet1
    
End Sub

Again, Excel / VBA is playing games and I don't understand why. Last night the original PROCESSTEMP macro worked 100%. This morning, it crashed as written so
it needed to be edited to the above. Go figure.

[navic]

I get lost at your Step # 4. You say "Select all filled cells in row." I don't really understand what you mean by that.

4. Select the filled cell with the names (in your case this is 3 cells with names)
6. Select a desired cell (eg G7). Here you will transpose to column

[Logit]

.
Here is a better version of the last macro post. It does a better job of cleaning up after itself.

Sub ProcessTemp()


ActiveSheet.Pictures.Delete


With ActiveSheet
    
    .Columns("C:D").Delete
    .Columns("A:A").Delete
    .Range("A3").Cut
    .Range("B2").Select
    ActiveSheet.Paste
    .Range("A4").Cut
    .Range("C2").Select
    ActiveSheet.Paste
    .Range("A5").Cut
    .Range("D2").Select
    ActiveSheet.Paste
    .Range("A6").Cut
    .Range("E2").Select
    ActiveSheet.Paste
    .Range("A2:E2").Hyperlinks.Delete
End With
    UpdateSheet1
    
End Sub

[navic]

My VBA solution

Sub Macro1()
    Range("A1").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1)), TrailingMinusNumbers:=True
    Range("A1:X1").Select
    Selection.Copy
    Range("A3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub