Range("B" & Rows.Count).End(xlUp).Offset(1)

[fpskidmark]

Hi Guys,

This is probably an easy fix, but I've been struck on this for a while now.

Range("B" & Rows.Count) - This will give me the last available row in column B, but I need the paste to start at range("B12"), then B13, B14, B15 etc...
Any suggestions?

For sa = 3 To 39
If Sheets("Pts").Range("c" & sa) = "a" Then
Sheets("Pts").Range("D" & sa & ":f" & sa).Copy
Sheets("Report Card").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next sa

Thank you,
FP

 

[Jonmo1]

The way that code is writtien, it will paste to 1 row below whatever is the last occupied cell in column B.

So say B12 is the last occupied cell in column B, that code will paste to B13.

 

[fpskidmark]

Thanks for the reply, Jonmo1

No, the last occupied cell in Column B is B34. I want the code to paste at B12. Rows from B12:B32 are empty (section 1). Section II starts from row 35 (B35).
B33:B34 are occupied cells.

Thank you

 

[Jonmo1]

Try
Range("B1").End(xlDown).Offset(1)

 

[faswad21]

Hey @fpskidmark.

Were you able to resolve your issue. I am facing the same issue in 2021.
Kindly help, please.

 

[Joe4]

Hey @fpskidmark.

Were you able to resolve your issue. I am facing the same issue in 2021.
Kindly help, please.

If you have a question, you are probably better off posting it to a new thread instead of resurrecting an old thread (especially since the user you are trying to contact hasn't been on the board in a few years!).

Also, when you post to a new thread, the question shows up on the "Unanswered threads"listing, which is a place many "helpers" go to in order to look for new, unanswered questions.

 

[faswad21]

Thaks for the tip Joe4.
i will do that right away.
Reagrds

 

[Joe4]

Thaks for the tip Joe4.
i will do that right away.
Reagrds

You are welcome.

And welcome to the Board!