Copy Rows from Sheet With Same Leading Cell Text - vba

Question

So I have been stumped by this for a while now. I have two sheets with some values in column 1 bolded. I wish to filter through the values on the second sheet (Mult. Year Set up) and copy the entire row of data with the same column 1 bolded Text.
Page from Which data is to be coppied
Page Which Data is to be coppied to
For example I would like to take the "Backhoes" row from the first link and copy it to the "Backhoes" row on the Second link.
The major issue here is that the rows on the first page with bolded text are variable and may not allways have the same row number. The row numbers will change when more equipment is added.
Thanks in advance for the assistance, as I said, I have been working on this for a few days now.
Additionally, the data must be transposed from a row to a column, but that is a minor detail.

Answer 1

Look at something like this.
1. Loop through the rows looking for bold cells.
2. Loop through all the columns and copy the data from the source sheet to the target sheet.
Dim lRow As Long
Dim lCol As Long
Dim lRowFind As Long
Dim sourceSheet As Excel.Worksheet
Dim targetSheet As Excel.Worksheet
Set sourceSheet = ActiveWorkbook.Sheets("Current Year Budget")
Set targetSheet = ActiveWorkbook.Sheets("Mult. Year Set up")
lRow = 5
Do While lRow <= sourceSheet.UsedRange.Rows.count
'You could do it by name
'If ws.Range("A" & lRow).Value = "Backhoes" Or ws.Range("A" & lRow).Value = "Graders" Then
'If we are looking for variable rows by them being bold. We can do this.
If sourceSheet.Range("A" & lRow).Font.Bold = True Then
'Find the row on the target sheet where we want to write the data.
lRowFind = 1
Do While lRowFind <= targetSheet.UsedRange.Rows.count
If targetSheet.Range("A" & lRowFind).Value = sourceSheet.Range("A" & lRow).Value Then
Exit Do
End If
lRowFind = lRowFind + 1
Loop
'Now we have a row that we want to copy.
For iCol = 1 To sourceSheet.UsedRange.Columns.count
targetSheet.Cells(lRowFind + iCol, 2).Value = sourceSheet.Cells(lRow, iCol).Value
Next iCol
End If
lRow = lRow + 1
sourceSheet.Range("A" & lRow).Activate
Loop