Copy a row from excel which have two space at the starting place

Hi All,

I need to copy a row from excel to another sheet when any row have one space before the word in the column A.

E.g:
Column A
Value 1
Value 2 (this row have a space before the word value 2)
Value 3
Value 4

I need to copy row 2 since the " Value 2" have once space at the starting

Please help me with this scenario.

for count = 1 to range("A" & rows.count).end(xlup).row
  if left(Range("A" & count),1) = " " then rows(count).copy
next

Hi Thanks for the quick reply,

I tired using your code: I need to copy these selection into a sheet2 of the same excel, i tried the below code, but get a junk result
Please help me with this.

Sub copy()
For Count = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Left(Range("A" & Count), 1) = " " Then Rows(Count).copy
Worksheets("Sheet2").Activate
ActiveSheet.Paste Destination:=Worksheets("Sheet2").Rows(1)
Next
End Sub

When i ran this code i got compile error saying "Next without for"

Sorry, try:

Sub copy()
For Count = 1 To Range("A" & Rows.Count).End(xlUp).Row
If Left(Range("A" & Count), 1) = " " Then 
Rows(Count).copy Sheet2.cells(Rows.count, 1).end(xlup).offset(1,0)
end if
Next
End Sub

Thanks a lot, works perfect

What might be the reason for the runtime error?. Because It worked perfectly in my Xp machine, whereas when i tried in my remote machine i got the same error message