Andrea,

Well if this works then your lick just changed. Checks column A for boold
cell and if it finds on copies that cell and the one next to it to E26

Sub mariner()
Dim myRange As Range
Set myRange = Range("A1:a100") '<=========Alter to suit
For Each c In myRange
c.Select
x = c.Address
If Selection.Font.Bold = True Then
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 0, numColumns + 1).Select
Selection.Copy
Worksheets("Sheet2").Cells(26, 5).Insert shift:=xlDown
End If
Next
End Sub

Will that do?

Mike

" wrote:

Hello

I'd appreciate any help someone could give with this issue,

I've not been very lucky with responses lately on this newsgroup.

I need a macro to copy cells in a column which are in bold and if they
are in bold then copy the cell next to this and the one in bold to
another sheet from Cell E26 by inserting a row in order to copy them
and shift rows down.

I am hoping someone could look at this for me as its the last part of
what I need to do and then there'd be no more questions on the same
thing,

Thanks in advance,

Andrea