That seems to work better for me.

How would I make it so that it cylces through and only finds values
with "A" in them.

I have this line but doesnt seem to work.

Worksheets("Master Questions").Range("C" & lngfindcells & ":C" &
lngfindcells).Cells.Find("A").Offset(0, -1).Copy
Destination:=Worksheets("Output").Range("A" & lngdestcount)

- So basically it will search Column C and find a cell with value "A"
- take the cell to the left of that value and paste it into worksheet
output.

Having a difficult time with this.


kev_06 wrote:
This code will copy values from Sheet1 column 1 and paste them into
Sheet2 column 1 without the empty cells. Change lngfindcells from 60 to
whatever you need. If this doesn't work for you or you need something
different, let me know.

Dim lngfindcells As Long 'Set counter up for Sheet1
Dim lngdestcount As Long 'Set counter up for destination cells in
Sheet2

'Set counter = 1 so destination values on Sheet2 begins at row 1
lngdestcount = 1

'Cycle through every cell in Sheet1 column A, starting at row 1
For lngfindcells = 1 To 60

If Worksheets("Sheet1").Cells(lngfindcells, 1) = "" Then
'Do Nothing
Else
'If cell on Sheet1 has a value, copy it and paste it into
Sheet2, beginning in column A, row 1
Worksheets("Sheet1").Range("A" & lngfindcells & ":A" &
lngfindcells).Copy Destination:=Worksheets("Sheet2").Range("A" &
lngdestcount)

'Increment counter so next value copied will be below
previous one on Sheet2
lngdestcount = lngdestcount + 1
End If
Next


--
kev_06
------------------------------------------------------------------------
kev_06's Profile: http://www.excelforum.com/member.php...o&userid=35046
View this thread: http://www.excelforum.com/showthread...hreadid=561602