복사 된 보이는 행을 기존 데이터에 삽입하는 방법

Question

복사 된 행을 동일한 기존 데이터에 삽입하는 방법, 아래 코드에서 복사 한 행을 기존 데이터 및 동일한 시트에만 삽입하려는 경우

Name Location Salary 
Sy  Hyd   12,000 
Ay  Hyd   13,000 
Raju Hyd   15,000 

은 내가

Sub Referral() 

Application.ScreenUpdating = False 

With Sheets("Sheet3") 

    'this is generic, you may need to adjust this based on your sheet and data needs 
    Intersect(.UsedRange, .UsedRange.Offset(1)).SpecialCells(xlCellTypeVisible).Copy 

End With 

'goes to cell below last used cell in column A 
Sheets("Sheet4").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues 


Application.ScreenUpdating = True 'don't forget to turn on your ScreenUpdating again! 

End Sub 

Answer 1

난 그냥 코드를 가져다가 몇 가지 물건을 변경 위의 표에서 이름 위치와 급여를 복사 (헤더 아래) 정상에서 같은 위의 표에 복사 된 데이터를 삽입 할

Sub Referral() 

Application.ScreenUpdating = False 

With Activesheet 
    .range(.cells(2,1),.cells(.cells(.rows.count,1).end(xlup).row,.cells(1,.columns.count).end(xltoleft).column)).Copy 
    .Cells(2, 1).PasteSpecial xlPasteValues 
End With 

Application.ScreenUpdating = True 

End Sub