Why use VBA when we can use transpose : This macro is made for those who work on large and complicated data files.
To debug the MACRO you have to press F8 in Microsoft Visual Basic.

Suppose if you have a larger spreadsheet where you have to backup and view,sort around 30 columns rom one part of the sheet to another part of the worksheet and on a daily basis. Then how will you do it. Yeah we know transpose..but here is a way to do it automatically with a single click.

Sub Save()
Dim SRC_SHEET As String
Dim DST_SHEET As String
SRC_SHEET = "Sheet1"
DST_SHEET = "Sheet2"
 
Dim entryID As Integer
Dim dstRowNum As Integer
Dim dstDataRange As String
 
'read the entryID from the src sheet
Sheets(SRC_SHEET).Activate
entryID = Sheets(SRC_SHEET).Range("A2").Value
 
'find the row matching the entryID from the dst sheet
Sheets(DST_SHEET).Activate
Set found = Sheets(DST_SHEET).Columns("A").Find(what:=entryID, LookIn:=xlValues, lookat:=xlWhole)
dstRowNum = found.Row
 
'copy and paste the values
dstDataRange = "B" & dstRowNum & ":" & "D" & dstRowNum
Sheets(SRC_SHEET).Activate
Sheets(SRC_SHEET).Range("B3:B5").Select
Selection.Copy
Sheets(DST_SHEET).Activate
Sheets(DST_SHEET).Range(dstDataRange).Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

read full tutorial for better understanding