I am having a hard time writing a macro. What I am trying to do is have the macro search one column, find the lower case names and copy them to a new worksheet. Is that possible.

I have these 2 marcos but don't know how to combine them:

Subsort_and Copy()
range("h65535"0.select
selection.end(xlup).select
activecell.offset(0,).select
activecell.value = "=row()"
selection.copy
range(activecell, selection.end(xlup).offset(1,0)).select
activesheet.paste
selection.copy
selection.pastespecial xlpastevalues
range(selection,"a2").select
selection.copy
worksheets.add
range("a2").select
activesheet.paste
selection.sortkey1:=range("a2"),order1:=xlascending, header:=xltrue,_
ordercustom:=1, matchcase:=true, orientation:=xltoptobottom
range("a2").select
selection.end(xldown).offset(1,).select
range("a & activecell.row, hv65535").clear
columns ("m").delete
range("a2").select

End sub

Sub upper_case1()
application.screenupdating = false
application.calculation = xlcalculationmanual
dim cell as range
on error resume next 'in case no cells in selection
for each cell in intersect(selection,_
selection.specialcells(xlconstants, xltextvalues))
cell.formula = ucase(cell.formula)
next
application.calculation = xlcalculationautomatic
application.screenupdating = true
end sub

Any help would be appreciate, I am at the end of my string on this on.

Thanks