Inserting Data at a Specific Point

[joeyjj]

Hello all,

I am trying to make a macro that will calculate information and then display the information in two locations. I have worked everything out But the following:

'Report First Row
If Rws.Range("B20").Value <> "" Then
    RRow = Rws.Range("B20").End(xlDown).Row + 1
Else
    RRow = Rws.Range("B" & Rows.Count).End(xlUp).Row + 1
End If

This code should Find the first blank row Starting from B20. Please note that there is text below at B24 and text above at B14. I would like to have it start searching from B20 and look downwards as opposed to upwards from the beginning of the report.

 

[Joe4]

Make something like this?

Sub MyFindRow()

'   Find first blank cell in column B starting at row 20
    Dim RRow As Long
    
    If Range("B20").Value = "" Then
        RRow = 20
    Else
        If Range("B21").Value = "" Then
            RRow = 21
        Else
            RRow = Range("B20").End(xlDown).Row + 1
        End If
    End If
    
    MsgBox "First Blank Row is " & RRow
    
End Sub

 

[joeyjj]

This worked great thank you. Now I have a new concern. The coding for my report is to take this paste the data calculated into a new (inserted) cell. I guess my main issue is if I am adding New cells into the worksheet The cells that I want to search for will not be at the same location. Is there a way to search for a specific type of wording say "Silencer Requirements" and have it find that wording and start searching 3 rows down?

 

[Joe4]

Is there a way to search for a specific type of wording say "Silencer Requirements" and have it find that wording and start searching 3 rows down?

Sure. If you use the Macro Recorder while using the "Find" functionality in Excel and search for your phrase, you will record the "Find" VBA code that you need. Then you can move three rows down from there using:
ActiveCell.Offset(3,0)<!-- / message -->

 

[joeyjj]

Thanks SOOOO much for your help