Thanks a lot buddy..works perfect..great work
On May 18, 6:23 am, Dilip Pandey wrote:
> 'Hi TAIgo,
>
> 'Use following code:-
>
> Sub TAIgo()
> Range("a1").Copy
> Range("b1").Select
> If Selection.Value = "" Then
> ActiveSheet.Paste
> Else
> Selection.End(xlDown).Select
> Selection.End(xlDown).Se
'Hi TAIgo,
'Use following code:-
Sub TAIgo()
Range("a1").Copy
Range("b1").Select
If Selection.Value = "" Then
ActiveSheet.Paste
Else
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If
End Sub
'Thanks & Regar