Fetching last column values for specific rows of a sheet and displaying as rows in another sheet

[shanck]

Hi All,

I am totally a novice to this forum and VBA as well.Please help me in writing a code for the below.

I have more than 100 rows and 117 columns.My task is to fetch last column values for specific rows and display as rows in another sheet.Could someone please help me on this.
Any help would be really grateful.

The code here is for all values(All column values of those specific rows).Could you help me in changing the code only for last column values.

Code for directly converting rows in a sheet to columns of another sheet------


Sub RowstoColumns()
Dim x, z
x = Sheets("Daily").[A1].CurrentRegion
z = Application.Index(x, Application.Transpose(Array(24, 2, 12, 22, 23)), [transpose(row(1:117))])
Sheets("Sheet2").[A1].Resize(UBound(z, 2), 5).Value = Application.Transpose(z)
End Sub

 

[veyselemre]

Hi,
I know very little English.I hope I have understood correctly.

Sub RowstoColumns()
    Dim x, z
    x = Sheets(1).[a1].CurrentRegion
    z = Application.Index(x, Array(24, 2, 12, 22, 23), [(row(1:117))])
    Sheets(2).[a1].Resize(UBound(z, 1), UBound(z, 2)).Value = z
End Sub