VBA CODE -- Find and insert

[MichaelJ300]

Hello,

I’m not sure how to explain what I need here…
I need to identify the first blank space then copy and paste information in that area. Then find the second space and copy and paste information in this area.

Step 1: identify the first empty row and copy and paste from a different tab named “Control” cell A21.
Step 2: Identify the second empty row copy and paste from a different tab named “Control” cell A22.

Thanks in advance…

 

[MichaelJ300]

Nope this didn't work... maybe it's how I'm puting in the code.
Sheets("TA TOTALS").Select
Cells(1, 1).End(xlDown).Offset(1, 0) = Worksheets("Control").Rows(21).Copy

what if I did this and then merged a:s with bold and color when pasting the data.
Cells(1, 1).End(xlDown).Offset(1, 0) = Worksheets("Control").Cells(21, 1)

 

[tsas321]

Nope this didn't work... maybe it's how I'm puting in the code.
Sheets("TA TOTALS").Select
Cells(1, 1).End(xlDown).Offset(1, 0) = Worksheets("Control").Rows(21).Copy

what if I did this and then merged a:s with bold and color when pasting the data.
Cells(1, 1).End(xlDown).Offset(1, 0) = Worksheets("Control").Cells(21, 1)

I used this code and it worked with merged cells and color. Now I am using Excel 2013 so that may be a problem as well..

Sub emptyrow()


    Worksheets("Control").Rows(21).Copy
    Worksheets(1).Cells(1, 1).End(xlDown).Offset(1, 0).PasteSpecial
    
    Worksheets("Control").Rows(22).Copy
    Worksheets(1).Cells(1, 1).End(xlDown).Offset(1, 0).PasteSpecial
    
   Worksheets(1).Activate
End Sub

Another thing you could do, as you said is to merge and color the cell.

Sub MergeCell()
dim x as long

x = Worksheets(1).Cells(1, 1).End(xlDown).Offset(1, 0).Row
Cells(x,1) = Worksheets("Control").Cells(21,1)
With Range("A" & x & ":S" &x)
       .Merge
       .Font.Bold = True
       .Font.ColorIndex = 3
End With

End Sub

This will turn the font red. You could also use color and the RGB index. To tell what color font the cell is you can click the cell and write the following code --- MsgBox ActiveCell.Font.ColorIndex. If its the interior color than replace Font with interior.