Re: If function
Hi Susan,
I am not sure whether I got you correctly..
However try this and see if this is what you are looking for:
[vba]
Sub CopytoSht()
Dim rn, cell As Range
Dim str As String
Set rn = Sheet1.Range("A1", Sheet1.Range("A65536").End(xlUp))
For Each cell In rn
If Right(cell.Text, 2) = "01" Then
str = str & " " & cell.Value
Else
Sheet2.Range(Sheet2.Range("A1"), Sheet2.Range("IV1").End(xlToLeft)).Offset(0, 1) = cell.Value
End If
Next
Sheet1.Range("B1") = str
End Sub
[/vba]
change the sheet and range references if you got a different one.
Please post back if you have any issues..
HTH.