Hi,

Am Fri, 5 Apr 2013 11:27:54 +0000 schrieb POOJA1982:

Any Body Have A Code That Copies Visible Cells Of Sheet1 To Sheet2 Last
Blank Row
try:
Sub Test()
Dim LRow As Long
LRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Sheet1")
.UsedRange.SpecialCells(xlCellTypeVisible).Copy _
Sheets("Sheet2").Range("A" & LRow + 1)
End With
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2