aamirsq
Member
Sub Copy_Stuff1()
Dim cell As Range, rr As Long
rr = 2
Application.ScreenUpdating = False
Sheets("Sheet4").Range("A2:A3000").ClearContents
For Each cell In Sheets("dps").Range("AHR282:ALF388 ")
If Len(cell) > 0 Then
Sheets("Sheet4").Range("A" & rr).Value = cell.Value
rr = rr + 1
End If
Next cell
Application.ScreenUpdating = True
End Sub
How can i add additional condition for not selecting numbers (or only selecting text data) from dps sheet ?