H43 | Discord Bot for trolling your friends | Bot library

Dears, I am getting Procedure too large issue in VBA macro while I am trying to execute the following macro. How can I minimise the following codes?. Please help

My Question: I want to copy specific cells, from multiple workbooks (Called: Business Case (1) and rising), and within these workbooks, i want to copy data from 2 different worksheets (named "Summary" and "Business Case Input Sheet"). I dont know how to write the code to copy and paste the data correcly?

The place i want to copy from :

Filename:"Business Case (x)"

Sheet: "Summary"

Cells:

Currently, I'm working on image stitching of aerial footage. I'm using the dataset, get from OrchardDataset. First of all, thanks to some great answers on stackoverflow, especially the answer from @alkasm (Here and Here). But I having an issue, as you can see below at Gap within the stitched image section.

I used the H21, H31, H41, etc to wrap the images. The stitched image using H21 is excellent, but when wrap the img3 to current stitched image using H31, result shown terrible alignment between img3 and current stitched image. As the more images I wrap, the gap gets bigger and the images totally not well aligned.

Does the brillant stackoverflow community have an ideas on how can I solve this problem?

These are the steps I use to stitch the images:

1. Extract the frame every second from the footage and undistort the image to get rid of fish-eye effect using the provided camera calibration matrix.
2. Compute the SIFT feature descriptors. Set up macther using FLANN kd-tree and find matches between the images. Find the Homography (H21, H32, H43 and etc, where H21 refer to the homography which warps imag2 into coordinates of img1)
3. Compose the homography with the previous homographies to get net homography using the method suggested in Here. (Compute H31, H41, H51, etc)
4. Wrap the images using the answer provided in Here.

Gap within the stitched image:

I'm using the first 10 images get from OrchardDataSet.

Stitched Image with Gaps

Here's portion of my script:

main.py

ref_img is the first frame (img1). AdjHomoSet contain the images to be wraped (img2, img3, img4, etc). AccHomoSet contain the net homography (H31, H41, H51, etc)

I am working to copy data based on a value from one open workbook to another. I have a list of values in the destination workbook sheet and have a loop to find the values in another open source workbook sheet. The code works fine, however, with the way i have it set up i don't have any more room to add specialpaste or numberformat functions for the destination workbook. I know there has to be a simple way to condense my code, just having trouble figuring that out.

Sub ConditionalCopy()

I have the following code. It doesn't work. Says, "1004 Error", when implemented.

The onEdit function below for adding back checkboxes which are accidentally deleted works, but is waaaay too slow (and the list so far only contains half the ranges). The further down the list of ranges the deletion takes place, the longer it takes for the code to 'react' and replace the deleted checkbox (I suppose that is obvious to everybody except myself)