Need a Code for Pasting in last row after current data

[AV_Geek]

I'm looking for a code to Copy a Formula from "Sheet2" Cell "B5" and paste it into "Sheet1" the range from Column B through the last column in the row below the current last row

For example: If my Data in Sheet1 is A1:F25, I'd like this formula pasted in B26:F26

 

[Joe4]

Try:

Sheets("Sheet2").Range("B5:F5").Copy Sheets("Sheet1").Cells(Sheets("Sheet1").Rows.Count, "B").End(xlUp).Offset(1, 0)

 

[AV_Geek]

Well, it half works. it pasts into the correct row, but only pastes into Column B.

Keep in mind, on Sheet2, I'm only copying one cell. I want to paste that formula across the bottom of Sheet1

 

[AV_Geek]

Solved

Sheets("Sheet2").Select
    Range("Y21").Select
    Selection.Copy

Sheets("Sheet1").Select
lastrow = Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
lastcol = Cells.Find(What:="*", LookIn:=xlValues, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Range(Cells(lastrow, 2), Cells(lastrow, lastcol)).Offset(1, 0).Select

ActiveSheet.Paste