My code does not work. Please take a look.

[pedie]

Please make this code work
When i try run this code in single sheet it works without those highlighted in BOLD.

I'm trying to run from one sheet to another...

Sub try1()
    x = 1
    y = 14
    c = 2
    For chk = x To y
    [B]Sheets("DATAsample").Select[/B]
       If Cells(chk, c).Value = "x" Then
           Cells(chk, c).Offset(0, -1).Resize(, 2).Copy
            [B]Sheets("Sheet1").[/B]Range("D1").Select
            Do Until ActiveCell.Value = ""
            ActiveCell.Offset(1, 0).Select
            Loop
            ActiveSheet.Paste
            
            
    Else
    'nothing
    End If
    Next chk
    Application.CutCopyMode = False
End Sub

 

[VoG]

Try

Sub try1()
Const x As Integer = 1
Const y As Integer = 14
Const c As Integer = 2
Dim chk As Integer
For chk = x To y
    With Sheets("DATAsample")
       If .Cells(chk, c).Value = "x" Then
           .Cells(chk, c).Offset(, -1).Resize(, 2).Copy Destination:=Sheets("Sheet1").Range("D" & Rows.Count).End(xlUp).Offset(1)
        End If
    End With
Next chk
Application.CutCopyMode = False
End Sub

 

[pedie]

Great VoG!
Have a great day ahead!

Perfect and thanks for sharing new Ideas...at least that as new to me...