store all the values of cells which are in range

I have two questions:
1.I would like to store all the values of cells which are in range(Arr_photo)
Please help me out with the following code.

Please Login or Register  to view this content.

Sub photo()
Dim last_row As Integer
Dim lastCol As Integer
Dim Arr_photo As Variant
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim wkb As Excel.Workbook
Set wkb = ThisWorkbook
Set ws = Sheets("photo")
wkb.Sheets("photo").Select
last_row = ws.UsedRange.Rows.Count
lastCol = ws.UsedRange.Columns.Count
Arr_photo = Cells(last_row, lastCol).Value

End Sub

Please Login or Register  to view this content.

2.I have samples spreadsheet attached to this post named sample one.
The samples spreadsheet has 2 sheets "main" and "photo"
On cells b2 and b3 in the "photo" spreadsheet there is an Excel equation with a vlookup I would like to drag down the equations to fill in the information for sku's 2 and 3 the dragging needs to be similar to the way I would have occurred if I would have marked on my Excel b2 and b2 in the "photo" spreadsheet and move my mouse down.
Any ideas how this can be done?

Thank you for your help

Hello.
Thank you for your response.

However there are two things which I don’t understand.
1. You gave the following answer

Please Login or Register  to view this content.

Arr_photo = Sheets("photo").UsedRange.Value.

Please Login or Register  to view this content.

However the issue I have with this answer let say I do not want to store all the information in the spreadsheet only certain information let say form c3:h3 also I would like to make the information I decide to store be flexible therefore in my original code I used Arr_photo = Cells(last_row, lastCol).Value. Please advise.

2.For the following sub

Please Login or Register  to view this content.

Range("B2:C2").AutoFill Destination:=.Range("B2:C" & .Range("A" & Rows.Count).End(xlUp).Row).

Please Login or Register  to view this content.

Can you explain how Destination:=.Range("B2:C" & .Range("A" & Rows.Count).End(xlUp).Row) works I was not able to understand.

Thanks agin.

Thank you again for your help.
For question one I would like to store all the values in the work sheet in a Variant starting from a2 until the last value in the spreadsheet and the Variant to paste into a new workbook.

Question two got it thanks again for your help.

And how would I paste?
I was trying to paste with

Please Login or Register  to view this content.

Workbooks.Add
Range("a2").Select
Arr_photo.PasteSpecial _
Operation:=xlPasteSpecialOperationAdd

Please Login or Register  to view this content.

However it did not work