Here is the code i want to copy data into selected range including i
checks.But my problem is selected area can not be pasted into selecte
range.

Sub CommandButton1_Click()
i = 75
j = 74
Sheet6.Activate
Sheet6.Range("C355:C706").Select
Selection.Copy

Sheet41.Select


If IsEmpty(Sheet41.Cells(18, i)) Then

Range(18, i).Select

ActiveSheet.Paste
Else

k = i + 3
Range(18, k).Select

ActiveSheet.Paste
End If
For j = 18 To 478
If IsEmpty(a = Sheet41.Cells(18, j)) Then
vlookedup_column = j - 4
vlookup_column = j - 2

Set c = Sheet41.Cells(counter, vlookuped_column)
Set d = Sheet41.Cells(counter, vlookup_column)
If c < yes Then
c.copy
End If



End If
Nex

--
Message posted from http://www.ExcelForum.com