copiar plan1 na ultima linha vazia da plan2

Amigos,

Mais uma vez venho solicitar o auxilio de vc´s.
Estou tentando concluir uma macro que deve selecionar os valores de uma sheet1 utilizando lop para definir o número de linhas que deverão ser copiadas. E após a seleção devo colá-la na primeira linha vazia da sheet2.
Fiz o código, mas o mesmo não funciona. Alguém pode me ajudar.
Código:

Private Sub CommandButton1_Click()

Dim n_linhaver As Integer
n_linhaver = 10
Do While Cells(n_linhaver, 1).Value <> ""
n_linhaver = n_linhaver + 1
Loop
Range(Cells(6, 1), Cells(n_linhaver, 14)).Select
Selection.Copy
Sheets("check").Select
Range("A1048576").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

Atenciosamente
Rangel

Boa noite!

Mande seu modelo de arquivo para um site gratuito como 4shared e outros depois nos mande o link!

Código:

Sub Copiar()
Dim r As Range, r1 As Range

With Worksheets("Origem")
Set r = .Cells(Rows.Count, "A").End(xlUp)
End With

With Worksheets("Destino")
Set r1 = .Cells(Rows.Count, "A").End(xlUp)
End With

r.EntireRow.Copy r1.Offset(1, 0)
End Sub

Tenho uma macro que funciona bem...

Ela copia onde tem dados, se for seu caso, apenas mude os nomes...

Espero ter ajudado

[]´s

Jaime

Sub Macro3()
'
' Macro3 Macro
'
If MsgBox("TODOS OS DADOS SERÃO DEFINITIVAMENTE APAGADOS, CONFIRMA??", vbYesNo, "ATENÇÃO, AVISO IMPORTANTE!!!") = vbYes Then

Range("B8:H8").Select ' Seleciona as celulas no meu caso, é a coluna B
Range(Selection, Selection.End(xlDown)).Select ' Seleciona até onde possui dados
Selection.Copy ' Copia
Sheets("Nome da guia da sua planilha").Select ' Seleciona planilha para colar
Range("A1").Select

If Range("A2") = "" Then
ActiveCell.Offset(1, 0).Select
Else
Range("A1").Select
Selection.End(xlDown).Offset(1, 0).Select
End If

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False ' Cola com os formatos proprios
Range("A2").Select ' Seleciona celula
Sheets("nome sua guia").Select ' Seleciona planilha inicial
Range("B8").Select ' Seleciona celula
Application.CutCopyMode = False ' Limpa area de transferencia
Range("B8:D100").Select ' Seleciona celulas de onde foram copiados os dados
Selection.ClearContents ' Limpa as celulas
Range("B8").Select ' Seleciona celula para novas entradas

End If
End Sub